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IDENTIFICATION 
PRODUCT CODE: AC=T439A-MC 
PRODUCT NAME : CNDZCAO DZV11 CABLE/ECHO TST 
PRODUCT DATE: DEC, 1982 
MAINTAINER: DIAGNOSTIC SERVICES/ISS 
AUTHOR : L.FLORYAN 


THE ew IN THIS DOCUMENT IS wiwt TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT 


BE CONSTRUED AS A COMMITMENT BY ek 


EQUIPMENT CORPORATION. DIGITAL EOUIPMENT CORPORATION ASSUMES 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE = Aa | pe He IN THIS DOCUMENT IS FURNISHED UNDER 


A 
LICENSE ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 


TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT a pad 5 > ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1982,1983 DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE FUNCTION OF THE DZV11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE DZV11 
OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 


CURRENTLY THERE ARE THREE STANDALONE DIAGNOSTICS (DVDZ4.9V5Z8,AND DVDZC) 
ONE SYSTEM MODULE FOR DEC X/11 (DZBA), AND AN OVERLAY FOR ITEP (DVDZD). 


ins RL gy Ly WITH CNDZB WILL TEST ALL LOGICAL FUNCTIONS OF THE DZV11 
CNDZC_IS DESIGNED AS A NON-CHAINABLE STANDALONE DIAGNOSTIC PROVIDING THE 
OPERATOR WITH DIRECT CONTROL OVER THE TESTING OF ALL DZV11 EIA CABLES. 


RREAEEAEEEEEAEEEEEEEEEEAEREREREREEEEAEEEEEREEEEEEEAEEEAAAAEEARAEREHEEEREEKE 


* ee GPA 

* NOTE: THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXT11 (SBC 14931) * 
* BASED SYSTEMS. THE PROGRAM WILL gtr dene ADJUST ITSELF TO RUN * 
* IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS: * 
* ca 
* LSI-11, 11/2, AND 11/23 SBC 11/21 * 
Ww a a emo ner amen eeceocore= ess ee see ee * 
* CSR ee 160010 TO 163770 174000 TO 177770 * 
* VECTO eo 300 TO 770 300 TO 370 * 
* AUTOCSIZING F » 
* ...CSR AND VECTOR: ENABLED DISABLED - * 
% ss & 
POOTTTTTeTTTTTTTTITTTTTTTTTTTTTTTTTTTTTTITTTTTTTTTITTTTTTT TTT titi iii 
REQUIREMENTS 

EQUIPMENT 


AN LSI11_ CPU WITH MINIMUM 4K OF MEMORY. 

ASR 33 (OR EQUIVALENT FOR CONSOLE) 

ASR 33 (OR EQUIVALENT) TO RUN DZV11 ECHO TEST 
DZVv11 INTERFACE MODULE 

H325 CABLE TURNAROUND CONNECTOR. 
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2.2 STORAGE 


PROGRAM WILL USE ALL 4K OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 1740 ARE ESPECIALLY TO BE NOTED AND TO BE 
UNTOUCHED BY THE OPERATOR IF THE PARAMETERS HAVE BEEN ALREADY BUILT BY 
RUNNING EITHER THE CNDZA OR CNDZB DIAGNOSTICS. LOADING THIS DIAGNOSTIC 
WILL PRESERVE THESE LOCATIONS. 


3. LOADING PROCEEDURE 

3.1 METHOD 
ALL PROGRAMS ARE IN es FORMAT AND ARE LOADED USING THE ABSOLUTE 
LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH AS _ DISK 


-MAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS FOR THE MONITOR 
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 


ABSOLUTE LOADER STARTING ADDRESS *500 
MEMORY * SIZE 


3.1.1 STARTING THE PROCESSOR AT THE ABSOLUTE LOADER STARTING ADDRESS WILL LOAD 
THE DIAGNOSTIC INTO MEMORY. 





——_—————__——_——_—_—_ -———— ————___--—_— 
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STARTING PROCEEDURE 
A. ate SWR TO ALLOW THE A yy’ PROGRAM OPTIONS TO FUNCTI 


ON. 
OC. 000176 IS U +4 : ace SOFTWARE SWITCH REGISTER IN ALL OF 


C. 4.1 
B. START THE DIAGNOSTIC AT LOC. 200(8). THE PROGRAM WILL TYPE MAINDEC 
D PROGRAM NAMES (IF 


AN 0 
C. THE PROGRAM WILL 


THIS WAS THE FIRST START UP OF THE PROGRAM). 
FOR THE DEVICE ADDRESS, THE VECTOR AND THE 


THEN ASK 
LINE NO. OF THE DZV11 TO BE TESTED. TYPE THESE VALUES ON THE CONSOLE 


Y A <CR>. THE PROGRAM WILL THEN ASK FOR WHICH 


TERMINAL FOLLOWED 8B 
ayaa IS DESIRED. ECHO OR CABLE. TYPE EITHER E OR C AND A <CR>. THE 


IAGNOSTIC. WILL TYPE OUT THE NAME OF THE TEST THAT IS NOW RUNNING 


(SEE SEC. 5.1). 
CONTROL SWITCH SETTINGS 


NOTE: 


THIS PROGRAM UTILIZES A a, yg be REGISTER WHICH MAY BE 
MODIFIED BY CHANGING LOC. 176 OR TYPING CONTROL °'G’’ (*G) ON 
THE CONSOLE TERMINAL WHILE THE PROGRAM IS RUNNING. 


SET: HALT ON ERROR 
RESERVED 


: RESERV 
SET: INHIBIT ERROR PRINT OUT 
SET: INHIBIT **ALL** TYPE OUT/BELL ON ERROR. 
SET: RESERVED 
SET: GO TO END OF PASS AFTER AN ERRO 
SET: LOOP WITH CURRENT DATA cst Sec 4.1.1) 
SET: ~ 5 hn AFTER AN ERROR 


SET: RESERVED 


me Ce Se Si 
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| 4.1.1 SWITCH REGISTER RESTRICTIONS 
| Sw 09 of ON CURRENT DATA: THIS SWITCH IS ONLY USED IN THE CABLE TEST 
TK THE TRANSMIT CONTROL REGISTER OF THE DZV11 WILL CAUSE THE (CO 
SET HAT LIN H 
SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEANT 
TO BE USED AS A GENERAL USER CONTROL SWITCH. 
SWITCH REGISTER PRIORITIES 
ERRGR SWITCHES 


1. SW 12 DELETE PRINT OUT/BELL ON ERROR. 

2. SW 13 DELETE ERROR ie 

3. SW 15 HALT ON THE ERROR 

4. Sw 08 RESTART THE TEST AFTER AN ERR 

5. SW 10 GO TO THE END OF PASS AFTER AN TERROR 

SCOPE SWITCHES 

1. Y. 09 (IF ENABLED ee ». IF A *** IS PRINTED IN FRONT OF 
THE TEST NO. ON ERROR REPORT THEN SWO9 IS INCORPORATED IN 


THAT TEST. THIS SuITCH gets THE OPERATOR WITH THE ABILITY TO 
LOCK _ON A SPECIFIC TEST OPERATION. 

IF THE PROGRAM USER IS TECHNICALLY TRAINED TO ELECTRONICALLY 
ISOLATE so. PROBLEMS ON THE DZV11 MODULE, THIS SWITCH MIGHT 
PROVE TO BE A USEFUL AID. 

PRESENTLY THIS SWITCH IS ONLY USED IN hag DIAGNOSTIC FOR THE 
CABLE TEST TO LOCK ON CHECKING THAT IF DTR IS SET FOR AN ACTIVE 
LINE THE CO AND RING WILL BECOME SET FOR THAT LINE. 


4.2 STARTING ADDRESS 
SA 200 = THE STARTING ADDRESS FOR ANY DZV11 DIAGNOSTIC IS LOC. 200 


NOTE: THIS DIAGNOSTIC IS NOT DESIGNED TO RUN IN AN AUTOMATIC CHAIN 
MODE BECAUSE OF THE OPERATOR INTERVENTION REQUIRED TO RUN IT. 


5. OPERATING PROCEEDURE 


WHEN THE PROGRAM IS INITIALLY STARTED, MESSAGES AS DESCRIBED IN SECTION 
FOUR WILL BE PRINTED AND THE DIAGNOSTIC WILL BEGIN RUNNING. 





cs C- - CF CF Tr. Cr CO ---- ---ro >> o=eeeoe ees es eeor— — —_— --=-- _- 
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HOW TO RUN THE *‘CABLE/ECHO"’ TESTS. 
NORMAL STARTING PROCEEDURE FOR THE A fA TIME WOULD BE: 
LOAD THE DIAGNOSTIC, SET THE SwWR 176 TO WHATEVER SETTINGS —_ 
DESIRED, THEN START THE PROGRAM AT LOC. “50. 
THE PROGRAM WILL PRINT OUT ON THE CONSOLE TERMINAL: 
‘VECTOR ADDRESS-"" 
YOU TYPE A VECTOR FOLLOWED BY A <CR>. 
“CONTROL REGISTER ADDRESS~-"' 
YOU TYPE IN THE DZVCSR ADDRESS UNDER TEST FOLLOWED BY A <CR>. 
“WHICH TEST ? ECHO OR CABLE (E OR C)"° 
LETS DO THE CABLE TEST FIRST. TYPE ‘'C’’ AND A <CR>. 
“BAUD RATE= ** 


TYPE EITHER 50, 110, 135, 150, 300, 600, 1200 1800, 2000, 2400, 
3600, 4800, 7260, 9600 FOLLOWED BY <CR> 


“LINE: °° 


YOU TYPE THE LINE WHICH HAS THE H325 TEST CONNECTOR. (TYPE 
EITHER 0, 1, 2, 3) PROGRAM WILL THEN PRINT: 


“CABLE TEST"* 


AND IF EVERYTHING IS_ WORKING, THE END OF PASS MESSAGE WILL BE 
PRINTED AFTER EACH PASS. 


TO CHANGE LINES, HI ANY PRINTING KEY ON YOUR CONSOLE TERMINAL 
WHILE THE PROGRAM IS RUNNING AND THE FOLLOWING WILL BE PRINTED: 


“LINE: °° 


NOW CHANGE THE H325 TEST CONNECTOR TO ANOTHER LINE AND TYPE THE 
NEW LINE. PROGRAM WILL THEN PRINT: 


"CABLE TEST’’ 


AND BEGIN RUNNING THE DIAGNOSTIC. 
CONTINUE THIS OPERATION UNTIL ALL LINES ARE TESTEC. 
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ECHO TEST 


START THE PROGRAM AT LOC. 200 AND ENTER THE VALUES FOR THE CSR ADDRESS 
AND THE DEVICE VECTOR. THE PROGRAM WILL THEN PRINT OUT ON THE CONSOLE: 


“WHICH TEST ? ECHO OR CABLE (E OR ©)" 
NOW TYPE AN "‘E’’ TO DO THE ECHO TEST. PROGRAM WILL PRINT: 

“BAUD RATE-"" 
TYPE THE BAUD RATE. BAUD RATE CHOICES ARE: 50,75, 110, 135, 150 
300, 600 , 1200 1800, 2000, 2400, 3600, 4800, 7200, 9600. THE 
PROGRAM WILL THEN PRINT: 

LINE: ‘°° 


TYPE THE LINE NUMBER WHICH THE TERMINAL IS CONNECTED TO. THEN 
THE PROGRAM WILL PRINZ: 


“TERMINAL ECHO TEST’’ 
*** AT THIS POINT THE MESSAGE: 

“THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789" 
SHOULD BE PRINTED ON THE TERMINAL CONNECTED TO THE DZV11. 
THIS MESSAGE IS DESIRED TO BE PRIN 


NTI E 
CONTROL G <*G> ON THE CONSOLE TERMINAL WHILE THE MESSAGE IS 
PRINTING. THE PROGRAM WILL PRINT A PROMPT ON THE ete ASKING 


THE PROGRAM WILL THEN PRINT ON THE CONSOLE TERMINAL: 
“TYPE A CHAR. ON DZV11 TERMINAL" 


ANY PRINTABLE CHARACTER WHICH 4 TYPED ON THE DZV11 TERMINAL 

WILL BE ECHOED BACK ON THE TERMINA 

IF YOU TYPE CONTROL C <“*C> ON ThE DZV11 TERMINAL THE PROGRAM 

vit PRINT THE END OF PASS MESSAGE ON THE CONSOLE TERMINAL AND 
THE *‘QUICK BROWN FOX’ MESSAGE WILL BEGIN PRINTING ON THE DZV11 

TERMINAL AGAIN, THE ECHO TEST WILL BE RESUMED. 


TO CHANGE LINES: 
TYPE ANY PRINTABLE CHARACTER ON THE CONSOLE TERMINAL (NOT THE 


DZV11 TERMINAL). THE PROGRAM WILL AGAIN TYPE “LINE: ‘* AND WAIT 
FOR A RESPONSE. 
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5.3 PROGRAM AND/OR OPERATOR ACTION 


THE VARIETY OF PROGRAM at SWITCHES rte hot , THIS yoo de 
PACKAGE IS DESIGNED TO PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 
SHOOTING TECHNIQUES. BEFORE THE USER ATTEMPTS 10 RUN THIS DIAGNOSTIC HE 

SHOULD BECOME FAMILIAR ete THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1 we Sale te 4. 1.2, 4.1.3) 


WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE TYPED 
OUT AND POSSIBLY AN ERROR MESSAGE (DEPENDING ON THE PARTICULAR ERROR). 
IF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT 
HEN LOOK IN THE PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE 
PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 


6. ERRORS 
AS ey ne "Tid aa = wit ALWAYS BE A_TEST rE AND PC m hott 


CASES AADDI TIONAL INFORMATION WILL BE SUPPLIED TO THE THE ERROR MESSAGE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 


6.1 ERROR RECOVERY 
IF ford SOME REASON THE DZV11 SHOULD ‘HANG THE BUS* (GAIN CONTROL OF a8 


Ss ECK THE PROC 
LOCATION IN THE PROGRAM LISTING TO FIND OUT WHAT THE PROGRAM WAS DOING 
AT THE TIME OF THE ERROR. 


7. | OPERATING RESTRICTIONS 


WHEN RUNNING THE CABLE TEST, THE LINE THAT IS DECLARED ACTIVE MUST BE 
4 peng BY . H325__TEST eRe WHICH WILL TURN THE TRANSMITTED 
SIGNAL AROUND TO THE RECEIVER ON THE SAME LINE. 

THE DIAGNOSTIC IS NOT DESIGNED TO DETERMINE - LOGIC PROBLEM WITH THE DZV 
INTERFACE. IT IS DESIGNED ONLY TO VERIFY THAT THE INTERFACE CABLE IS 


OUT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 12=0). 
PROVIDING A TRUE LINK TO THE TERMINALS WHICH ARE CONNECTED TO THE D2V11. 


8.2 
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MISCELLANEOUS 
EMECUTION TIME 


THE EXECUTION TIME FOR THE CABLE TEST DEPENDS UPON THE DESIRED BAUD RATE 
GIVEN AT START UP TIME. AT 9600. BAUD THE END PASS MESSAGE WILL PRINT 


LAPSED. 
THE EXECUTION TIME FOR THE ECHO TEST IS ENTIRELY DEPENDENT UPON THE 
NUMBER OF CHARACTERS THE OPERATOR WISHES TO SEND. 


PASS COMPLETE 


WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. 


END PASS CNDZC-A CSR: 160100 VEC: 300 PASSES: 000001 ERRORS: 000000 


NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 
THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 


SEQ 0009 
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9.0 
9.1.1 


9.1.2 


P1459 
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KEY LOCATIONS 

AFTER THE BASE DEVICE ADDRESS AND THE BASE war cae HAVE BEEN TYPED IN, 
LOCATIONS 2010 THROUGH 2046 WILL CONTAIN THE VARIOUS DEVICE REGISTER 
ADDRESSES AND_ THE DEVICE VECTORS. LOCATION 1374 (SAVLIN) WILL CONTAIN 
THE LINE NUMBLR THAT WAS DECLARED ACTIVE. 

RUNNING THE DZV11 DIAGNOSTIC UNDER APT 

THE APT INTERFACE 


THE DZV_ DIAGNOSTICS ~ ste a as BE COMPATIBLE WITH THE APT 


(AUTOMATED PRODUCT TEST) SYSTEM DZV LOGIC TEST DIAGNOSTICS (CNDZA, 
AND CNDZB) CAN BE RUN AS es DIAGNOSTICS OR IN EITHER OF THE APT 
DE AS A STANDALONE DIAGNOSTIC ONLY AND 


MODES. CNDZC, HOWEVER IS DES 
REQUIRES DIRECT OPERATOR PARTICIPATION. 
SETTING UP THE DIAGNOSTIC USING APT 


ONLY ONE VARIABLE IN THE REGION SUBTITLED ‘‘APT + | Theta NEEDS TO 
BE SET UP BEFORE RUNNING UNDER APT. THIS VARIABLE I 


SSWREG -(1142) USED AS THE SOFTWARE SWITCH REGISTER WHILE RUNNING 
UNDER APT. 


RUNNING UNDER APT 
SSWREG (LOC. 1142) SHOULD BE SET UP PRIOR TO RUNNING THE DIAGNOSTIC. 
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10.0 PROGRAM DESCRIPTION. 


THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC=C3), JAN 19, ° 


| 
{ 
} 
| 
| 
| 1 STARTING PROCEDURE 
LOAD PROGRA 
| START THE PROGRAM AT LOC, 000200 
PROGRAM WILL TYPE DZV11 ECHO/CABLE TEST 
PROGRAM WILL TYPE WHICH TEST- ECHO OR CABLE 
TYPE IN E OR RESPECTIVELY 
PROGRAM WILL TYPE “VECTOR ADDRESS- 
TYPE IN THE-ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
FOR THE DZV11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
PROGRAM WILL TYPE ‘“‘CONTROL REGISTER ADDRESS~' 
TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
FOR THE DZV11, TO BF TESTED, FOLLOWED BY <CARRIAGE RETURN> 
PROGRAM WILL YYPE "LINE 
TYPE IN THE LINE NUMBER tite TESTED (IN OCTAL) 


PROGRAM WILL TYPE ‘BAUD RATE~"' 
TYPE IN THE BAUD RATE OF hy DZV11 TERMINAL 


eFOLLOWED BY <CARRIAGE RETURN> 
THE FOLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL 


(ROUNDED OFF 134.5) 


96 
ALL OTHERS ARE REJECTED 
47 PROGRAM WILL TYPE “‘ECHO"’ OR ‘‘CABLE TEST’’ TO INDICATE THAT TESTING HAS STARTED 
74 INITIAL ADDRESS OF THE STACK POINTER *** 1120 *** 


CNDZCA 
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79 

91 

103 
113 
141 
169 
384 


| 
| 
| 392 
| 
397 
436 
488 
| 
| 
| 
| 


454 


873 


995 
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MISCELLANEOUS DEFINITIONS 
GENERAL PURPOSE REGISTER DEFINITIONS 
PRIORITY LEVEL DEFINITIONS 
“SWITCH REGISTER'’ SWITCH DEFINITIONS 
DATA BIT DEFINITIONS (BITOO TO BIT15) 
BASIC “‘CPU'’ TRAP VECTOR ADDRESSES 
BITS 15- 17 CPU TYPE 
! A = 0-06; MWAl ey a fon =03,11/40=04,11/45=05 


O=R TIME CL 
9=FLOATING POINT PROCESSOR 
8=MEMORY MANAGEMENT 


MEM.TYPE BYTE <== (HIGH BYTE) 


1 


500 NSEC MOS=003° 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE*’ ABOVE 


THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 


THIS TABLE CONTAINS THE INFORMATION 4° EACH ERROR THAT CAN OCCUR. 
THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 

NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


EM 3POINTS TO THE rere MESSAGE 
DH :sPOINTS TO THE DATA HEADER 

DT :sPOINTS TO THE DAT 

DF sPOINTS TO THE DATA FORMAT 


INCREMENT THE PASS NUMBER ($PASS) 
IF THERES A ee GO TO IT 
IF THERE ISN'T JUMP TO XBEGIN 


ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 it 
I T A NU LINE FEED. 
: BE USED AS THE FILLER ens TER 
NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED 
NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
CALL: 
1) USING A TRAP INSTRUCTION 
TYPE »MESADR 72MESADR IS FIRST ADD ESS OF AN ASCIZ STRING 


SEQ 0012 


—-———— 
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TYPE 
ME SADR 


1728 Rkkkkhhet ECHO TEST KeKEREREEE 
THIS TEST WILL ACCEPT 1 CHARACTER AT A TIME 
(IN INTERRUPT MODE) AND TRANSMIT THAT SAME CHARACTER, 
*ONE LINE AT A TIME, ANY LINE O THRU 7 (OCTAL) 


1799 Kkkkktnke CABLE TEST KeKRERKERE 
THIS TEST TRANSMITS A BINARY COUNT PATTERN 
VIA_INTERRUPT MODE TO THE RECEIVER 
e+. THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR 


1808 TEST TO VERIFY THAT SETTING DTR FOR A GIVEN LINE 
WiLL BRING UP *'CO’’ AND “'RING'* FOR THE SAME —— 
JUMPERS W1,W2,W3 AND W4 MUST BE INSTALLED ON THE 
INTERFACE MODULE OTHERWISE AN ERROR REPORT WILL RESULT. 


SEQ 0013 
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CNDZCA 
CNDZCA.P11 10=DEC-82 15:31 SEQ 0014 , 


7820 33GPA = PRGFRT “?MAINDEC=11=CNDZCA/<200>/DZV11 ECHO AND CABLE TESTS ?,CNDZCA 
7821 33;GPA_  .HEADER <MD-11-CNDZC=A>,1982 
ITLE CNDZC-A 
S*COPYRIGHT (C) 1982 
S*DIGITAL EQUiPMENT CORP. 
; *MAYNARD , MASS. 01754 


ee 
;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC=C3), JAN 19, 1977. 


000001 étn=1 
z*STARTING PROCEDURE 
[*LOAD PROGRAM 
S*START THE PROGRAM AT LOC. 000200 
:*PROGRAM WILL TYPE DZV11 ECHO/CABLE TEST 
; *PROGRAM WILL TYPE WHICH TEST- ECHO OR CABLE 
*TYPE IN E OR C_ RES PECTIVELY 
;*PROGRAN WILL TYPE "VECTOR ADDRESS-"* 
*TYPE IN THE ADDRESS OF OnE RECEIVER INTERRUPT VECTOR 
+ eFOR THE DZV11_TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
:*PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-"* 
:*TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
3 *FOR THE DZV11 TO BE ta cael FOLLOWED BY <CARRIAGE RETURN> 


he N 
: eTYPE IN THE LINE NUMBER atu eR TESTED CIN OCTAL) 


*, FOLLOWED BY <CARRIAGE R 
2 *PROGRAM WILL he ‘BAUD _RATE-"* 


135 (ROUNDED OFF 134.5) 


Bete Ge Ge Fe Be Ge Be Ge Be Se Be Be Ge Be Se 


eaaeaneneennennennnnannann 
_ 
co 


96 
>*ALL OTHERS ARE REJECTED 
3*PROGRAM WILL TYPE ‘‘ECHO'’ OR “‘CABLE TEST’* TO INDICATE THAT TESTING HAS STARTED 


-REM 
;SWITCH REGISTER OPTIONS 


8 8 3 2 A PUNONUNINYINONYINIPSNINYNYUNDINININYNYINONINININYNYININDINYNINININININININYA NIP NININININPY AINA 
Ne ee Ne a a rr et et a a et a et et a a a a er a a ee es a a a et a a es et ee a a a a a a a ae a el ee ee 
. 
= 
. 
~ 
oO 
— 
4 
mm 
o 
wo 
< 
A 
oc 
> 
z 
z 
— p> 
> 
a 
m 


$W15=100000 3=1,HALT ON ERROR 


me Ce OC 
tt Ne te 1 ee ht ee ae ee ee a a a ee ee a ee ee ee a a ee a Lea et a a ht a a a ce a a ee a a a a a a a a a eh 


C 2 


“4 


| eNDrCeA MACY] 2061046) 3 14=EC-82 10:09 PAGE 77-1 
‘CNDZCA.P11.—-:10=DEC-82 15 INTRODUCTION TO D2V11 DIAGNOSTIC SEQ 0015 
| oa $w14=40000 3=1,LOOP ON CURRENT TEST 
| a5 13220000 1, INHIBIT ERROR TYPEOQUT 
| Sw12=10000 [=1-;DELETE TYPEOUT/BELL ON ERROR. 

, @ $W11=4000 21, 1N HIBIT ITERATIONS 
i 4) $W10=2000 [=1-ESCAPE TO NEXT TEST ON ERROR 
(1) $w09=1000 3=1,LOOP WITH CURRENT DAT 
(1) SWw08=400 =1,LOOP ON ERR ROR 
| @ $w07=200 $21, DO “AUTO SIZING" ON INITAL START UP. 
(1) $W06=100 21, DESELECT SPECIFIC DEVIC § 
(1) [NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 
(1) sw05=40 
(1) $w04=20 321, SELECT DELAY PARAMETER 
(1) SWwO3=10 :=1, SELECT SPECIFIC PARAMETERS 
(1) wO2= :=1, LOCK ON TEST SELECT 
(1) SWO1= 21, RESTART PROGRAM AT SELECTED TEST 
(1) SwOO=1 [=1, SELECT DEVICE ADDRESS, VECTOR, ETC. 
| (2) [SBTTL SASIC DEFINITIONS 
(2) + s®INITIAL ADDRESS OF THE STACK POINTER *** 1120 se 
(2) 001120 STACK= 1120 
(2) * -EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
(2) “EQUIV I0T.SCOPE T:BASIC DEFINITION OF SCOPE CALL 
(2) *MISCELLANEOUS DEF INITICNS 
(2) 000011 11 ;;CODE FOR HORIZONTAL TAB 
(2) 000012 ‘pe 12 33CODE FOR LINE FEED 
(2) CR= 15 :CODE FOR CARRIAGE RETURN 
(3) 000200 CRLF= 200 [:CODE FOR CARRIAGE RETURN-LINE FEED 
(2) 177776 PS= 177776 S:PROCESSOR STATUS WORD 
(2) eEQUIV PS,PSW 
(2) 177776 STKLMT= 177776 $3 STACK LIMIT REGISTER 
(2) 177772 PIRQ= 177772 [PROGRAM INTERRUPT REQUEST REGISTER 
(2) 177570 DSWR= 177570 ; : MARDWARE SWITCH REGIS TER 
(2) 177570 DDISP= 177570 ARDWARE DISPLAY REGISTE 
(2) esses THE FOLLOWING opi? START ADDRESS-FOR SBC hat IS ADDED 
(2) 170.000 ODT 170000 
(2) OO TENERAL PURPOSE REGISTER DEFINITIONS 
(2) RO= 0 3:GENERAL REGISTER 
(2) 000 101 R1= %1 ::GENERAL REGISTER 
(2) 0001 02 R2= %2 ::GENERAL REGISTER 
(2) 0000.°3 R3= 13 ?:GENERAL REGISTER 
(3) R4= %4 S:GENERAL REGISTER 
(2) 000005 R5= %5 T:GENERAL REGISTER 
(2) 000006 R6= %6 T:GENERAL REGISTER 
(2) 000007 R7= 17 i }GENERAL REGISTER 
(2) 000006 SP= 6 K POINTER 
2) 000007 PC= %7 i : PROGRAM COUNTER 
(3) :*PRIORITY LEVEL DEFINITIONS 
(2) 000000 PRO= 0 :;PRIORITY LEVEL 0 
(2) 000040 PRI= 40 ::PRIORITY LEVEL 1 
(2) 000100 PR2= 100 >: PRIORITY LEVEL é 
(2) 000140 PR3= «140 ::PRIORITY LEVEL 
(2) 000200 PR4= 200 ::PRIORITY LEVEL 4 
(2) 000240 PR5S= 240 :PRIORITY LEVEL 5 
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CNDZCA.P11 10=DEC=82 15:31 BASIC DEFINITIONS SEQ 0016 
(2) 000300 PR6= 308 :;PRIORITY LEVEL 
ts} 000340 PR7= 0 7PRIORITY LEVEL 
(2) 3*""SWITCH REGISTER’ SWITCH DEFINITIONS 
(2) 100000 SW15= 100006 
(2) 040000 SW14= 40000 
(2) 020000 SW13= 20000 
(2) 010000 Swi2= 10000 
(2) 000 SWw11= 
(2) 002000 Swi0= 2000 
(2) 001000 Swo9= 1000 
(2) 00 SwO08= 
(2) 200 swo7= 200 
(2) 000100 Sw06= 100 
(2) 000040 SWO5= 
(2) 000020 sw04= 20 
(2) 10 SwO3= 10 
(2) SwO2= 4 
(2) 000002 SwOol= 2 
(2) 1 Swo0= 1 
(2) -EQUIV SW09,SW9 
(2) EQUIV SW08,SW8 
(2) EQUIV SW07,SW7 
(2) -EQUIV Sw06, 

(2) EQUIV SW05,SW5 
(2) EQUIV SW04,SW4 
(2) EQUIV SW03,SW3 
(2) ° V Sw02,SW2 
(2) EQUIV SwWO1,SWw1 
$6? -EQUIV SwW00,SW0 
(2) s*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(2) 00 BIT15= 100000 

(2) 040000 BIT14= 40000 

(2) T13= 20000 

(2) 0 BITI2= 10000 

(2) BIT11= 4000 

(2) 002000 BIT10= 2000 

(2) 001000 BITO9= 1000 

(2) 000400 BITO8= 400 

(2) 000200 BITO7= 200 

(2) 000100 BIT06= 100 

(2) 0 BITOS= 40 

(2) 000020 BIT04= 20 

(2) 10 BITO3= 10 

(2) - 000004 BITO2= 4 

(2) 000002 BITOi= 2 

(2) 000001 BITOO= 1 

(2) -EQUIV BITO9,BIT9 
(2) -EQUIV BIT08,B1T8 
(2) -EQUIV BITO7,BIT7 
(2) EQUIV BiT06,B1T6 
(2) -EQUIV BITOS,BITS 
(2) EQUIV BIT04,BIT4 
(2) -EQUIV BIT03,B1T3 
(2) -EQUIV BITO2,BIT2 
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15:31 


BASIC DEFINITIONS 


-EQUIV 81T01,81T1 
“EQUIV BIT00,B1TO 


i sBASIC “CPU TRAP VECTOR ADDRESSES 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 


RE SVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC=14 33.0 GIT 

TRIVEC= 14 3; TRACE TRAP 

BPTVEC= 14 i SBREAKPOINT TRAP (BPT) 

IOTVEC= 20 ee1h PUT/OUTPUT TRAP (IOT) **SCOPE** 
RVEC= 24 POWER FAIL 

EMTVEC= 30 : $EMULATOR TRAP (EMT) **ERROR** 

TRAPVEC=34 3‘"TRAP’* TRAP 

TKVEC= 60 si TTy KEYBOARD VECTOR 

TPVEC= 64 PRINTER VECTOR 

geeeee THE FOLLOWING préak. VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 

Jakes Hl 1% soi 08 NE 2 tat VECTOR 


;;BREAK VECTOR 
PIRQVEC=240 7:PROGRAM INTERRUPT REQUEST VECTOR 


z INSTRUCTION DEFINITIONS 


PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
2 : INCREMENT PROCESSOR STACK 1 WORD 
ZSAVE RO ON STACK 


OP2SP=22626 s INCREMENT STACK TWICE 
BIT7 SET INTERRUPT MASK CINHIBIT FURTHER INTERRUPTS) 
CLEAR=0 sALLOW INTERRUPTS (CLEAR PROCESSOR STATUS) 


202V11 CONTROL AND STATUS > Sac DEFINITIONS 


3 (DZVCSR) BIT DEFINITIONS 
MAINT = BITS MAINTENANCE _ ENABLE 
DCLR=RIT4 DEVICE co 
MSENAB=61T5 ;MASTER SCAN ENABLE 
RIE=B1T6 ZRECEIVER INTERRUPT ENABLE 
RDONE=B1T7 ZRECEIVER DON 


7SILO ALARM ENABLE 
SILOAL = BITI3 SILO ALARM 

TIE=BIT14 TRANSMITTER INTERRUPT ENABLE 
TRDY=B1T15 Z TRANSMITTER READY 


zDZVCSR WORD DEFINITIONS 


TLO=0 * : TRANSMIT LINE 0 
;TRANSHIT LINE 1 
RSH ERE 


!BIT8 S TRANSMIT LINE 


SEQ 0017 


ms Oe -  -e 
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CNDZCA.P11 10=DEC-82 15:31 GENERAL DEFINITIONS AND EQUIVALENCES SEQ 0018 


| 1) :DZVRBUF BIT DEFINITIONS 
(1) 
WD 00 PARER=BIT12 sPARITY ERROR 
(1) 020006 FRMERR=BIT13. FRAME ERROR 
i oe 000 OVRRUN=BIT14 OVERRUN ERROR 
| (1) 100000 DVALID=BIT15 :DATA VALID 
(1) :DZVRBUF WORD DEFINITIONS 
(1) 
(1) 000000 RLO=0 :RECEIVER LINE 0 
(1) 000400 RL1=BIT8 :RECELVER LINE 1 
(1) 051000 RL2=BIT9 RECE LINE 2 
(1) 001400 RL3=BIT9!BITS CRECEIVER LINE 5 
(1) :DZVLPR WORD DEFINITIONS 
(1) 
(1) 000000 LPO=0 ZLINE PARAMETER 0 
(1) 000001 LP1=B1T0 SLINE PARAMETER 1 
(1) 000002 LP2= SLINE PARAMETER 2 
(1) 000003 LP3=BIT1!BITO [LINE PARAMETER 3 
(1) 0000 FIVE= sFIVE BITS/CHAR,1 stop BIT 
(1) 000010 S1X=B1T3 'SIX BITS/CHAR,1 STOP BIT 
(1) 000020 SEVEN=BIT4 SEVEN BITS/CHAR. 1 oP BIT 
(1) 000030 E1GHT=B1T4!B1T3 TEIGHT BITS/CHAR.1 STOP BIT 
(1) 000040 FIVES=BITS [FIVE BITS/CHAR,2 STOP BITS 
(1) 000050 SIXS=BITS!BIT3 :SIX BITS/CHAR,2 STOP BI 
(1) 000060 SEVENS=B1T5'BIT4 ;SEVEN BITS/CHAR, 2 STOP BITS 
(1 000070 EIGHTS=BITS'BIT4!B1T3. :EIGHT BITS/CHAR, 2 STOP BITS 
(1) 000100 PARITY=B1T6 ;PARITY ENABLED 
(1) 000200 ODDPAR=B17 [ODD PARITY ENABLED 
(1) 000000 ONESTOP=0 _ ONE STOP BIT ENABLED 
(1) 000040 TWOSTOP=B1TS :TWO STOP BITS ENABLED 
(1) 000000 VEPAR=0 SEVEN PARITY ENABLED 
(1) 010000 RCVON= RaIT12 TENABLE RECEIVER (RECEIVER ON) 
(1) 000000 $50=0 :SPEED 50 BAUD 
(1) 000400 $75=BI1T8 ?SPEED 75 BAUD 
(1) 001000 $110=B1T9 :SPEED 110 BAUD 
(1) 001400 $134=BIT9!BITS [SPEED 134.5 BAUD 
(1) 002000 $150=B1T10 SPEED 150 BAUD 
(1) 002400 $300=B1T10'B1T8 :SPEED 300 BAUD 
(1) 003000 $600=B1T10'BIT9 EED 600 BAUD 
(1) 003400 $1200=B1T10!BIT9!BITS8 :SPEED 1200 BAUD 
(1) 004000 $1800=B1T11 ‘SPEED 1800 BAUD 
(1) 004400 $2000=B1T11!B1T8 :SPEED 2000 BAUD 
(1) 5000 $2400=B1T11'BIT9 : SPEED 2400 BA 
(1) 5400 $3600=B1T11'BIT9!BITS SPEED 3600 BAUD 
@M 006000 4800=B1T11'B1T10 :SPEED 4800 BAUD 
(1) 06400 $7200=B1T11'BIT10'BIT8 :SPEED 7200 BAUD 
(1) 007000 $9600=B1T11'BIT10'B *SPEED 9600 BAUD 
(1) 007400 $19200=BIT11!BIT10'BIT9!BITS | ;SPEED 19200 BAUD 
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231 


GENERAL DEFINITIONS AND EQUIVALENCES 


sDZVTCR BIT DEFINITIONS 


TCRO=B1TO sENABLE TRANSMISSION ON LINE 0 
TCR1=B1T1 ENABLE TRANSMISSION ON LINE 1 
TCR2=B1 T2 sENABLE TRANSMISSION ON LINE § 
TCR3=B1TS ENABLE TRANSMISSION ON LINE 
DTRO=BITS zDATA TERMINAL READY FOR LINE 0 
DTRI=BIT9 :DATA TERMINAL READY FOR LINE 1 
DTR2=B1T10 sDATA TERMINAL READY FOR LINE 2 
DTR3=B1T11 ;DATA TERMINAL READY FOR LINE 3 
:DZVMSR BIT DEFINITIONS 
RINGO=8170 :RING INDICATED ON LINE 0 
RING1=B1T1 RING INDICATED ON LINE 1 
RING2=B1T2 sRING INDICATED ON LINE 2 
RING3=B1T3 RING INDICATED ON LINE $ 
COO=B81T8 CARRIER PRESENT ON LINE 0 
CO1=BIT9 sCARRIER PRESENT ON LINE 7 
CO2=B1T10 ;CARRIER PRESENT ON LINE 2 
CO3=B1T11 sCARRIER PRESENT ON LINE 3 
ee tee BIT DEFINITIONS 
BRKO=B1T8 sBREAK FOR LINE 0 
BRK1=BIT9 ;BREAK FOR LINE 1 
BRK2=B1T10 sBREAK FOR LINE 2 
BRK3=B1T11 sBREAK FOR LINE 3 


SEQ 0019 
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3? ; TABLE OF LOOP AROUND FUNCTIONS (H325) 
(1) 50 eeeeeose= weeeeceece 
(1) ; I a 
(1) : a 
(1) é REC TRANS 
(1) 3 DATA DATA 
a } 
aM 5 | meneame om 
| (1) : I a 
| ; rs 
; a ; co RTS 
| (1) : 
/ | 2” <jeentmneemenen 
(1) : 1 a 
(1) 3 V m 
(1) : RING DTR 
| 
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CNDZCA.P11 10=DEC=82 15:31 TRAPCATCHER FOR UNEXPECTED INTERRUPTS 


EPO irri iii rir iii iitiiitiiiiitiiiiiitiiit) 
s TRAPCATCHER FOR ede, INTERRUPTS 
ZTHE STANDARD "TRAP CATCHER" IS PLACED 

:BE TWEEN ADDRESS 0 TO gs - 776. 








OOKS LIKE ‘PC+2 H 
PETC ti titer irri iii iii titi ii ii iit iitiiiitititt iti titty 
000000 -=0 
sSTANDARD INTERRUPT VECTORS 

000024 .=24 
000024 005622 $PWRDN POWER FAIL HANDLER 
000026 000300 300 SERVICE AT PRIORITY LEVEL 6 VER:0 
000030 004730 SERROR sERROR HANDLER 
000032 000300 300 SERVICE AT PRIORITY LEVEL 6 VER:0 
000034 004522 . TRPSRV GENERAL HANDLER DISPATCH SERVICE 
000036 000500 300 SERVICE AT PRIORITY LEVEL 6 VER:0 


-SBTTL ACT11 HOOKS 


FREER EEEEEEEEEEE EEE EE EEEEREEEEEREKEEEEEREEEEREREREEEREEEE 


HOOKS REQUIRED BY ACT11 


900040 SSVPC=. SAVE PC 
000046 002670 SENDAD i:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 “WORD 0 ::2)SET LOC. 332 TO ZERO 

000040 *=$SVPC : RESTORE P 

000174 217% 
000174 000000 DISPREG:0 SOFTWARE DISPLAY REGISTER FOR SWITCHLESS 11S 
000176 900000 SuREG: 0 TSOFTARE SWITCH REGISTER FOR SWITCHLESS 11S 
000200 000137 002116 JMP START :GO TO START OF PROGRAM 


001000 -=1000 
001000 005200 047103 055104 MTITLE: .ASCIZ <200><12>/CNDZCA/<200>/DZV11 ECHO AND CABLE TESTS /<200> 


ee ee eee er ee a a ee a a ee ee el ae a a ee eee 
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c NDZCA.P11 10=DEC-82 15:31 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0022 
i = ¢3) 001120 .21120 
(4) SREAEAAEAEAEERAEEAAEEEEEEEEEAEAEAEAAAAARAAERAAEREEEEAERAEEREEEREEEE 
(4) *SBTTL APT MAILBOX-ETABLE 
(5) FF RRA EEEEEEEEEEEEEEEREEERERERREAEREEREREEEREEEEEEEEKEEEE 
(4) .EVE 
(4) 001120 $MAIL: z:APT MAILBOX 
(4) 001120 0000 SMSGTY: .WORD AMSGTY 3: MESSAGE TYPE CODE 
(4) 001122 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(4) 001124 0000 STESTN: .WORD ATESTN :: or 
(4) 001126 00000 ASS: .WORD APASS ;::PASS T 
(4) 001130 000000 SDEVCT: .WORD ADEVCT ::DEVICE COUNT 
(4) 001132 00000 SUNIT: . AUNIT :: 
(4) 001134 000000 SMSGAD: .WORD AMSGAD ;::MESSAGE ADDRESS 
(4) 001136 00000 . AMSGLG ;:MESSAGE LENG 
(4) 001140 SETABLE: 33 NVIRONMENT TABLE 
(4) 001140 000 SENV: .BYTE AENV ;:;ENVIRONMENT BYTE 
(4) 001141 000 SENVM: BYTE | AENVM 
(4) sENVIRONMENT MODE BITS 
(4) 001142 000000 Sune EG: .WORD ASWREG ;;APT SWITCH REGISTER 
(4) 001144 000000 SUSW WORD AUSWR ;;USER SWITCHES 
(4) 001146 00000 ScPuCe: “WORD ACPUOP ::CPU TYPE -OPT IONS 
(4) 3* BiTs Is-1iscPu T 
(4) 7 1/04 Yor “1/05 02. 11/20=03, 11/40=04,11/45=05 
(4) i* /70=06.PD0=07,0=10 
(4) 7. BIT 1O=REAL TIME CLOCK 
(4) te BIT 9=FLOATING POINT PROCESSOR 
(4) se BIT 8=MEMORY MANAGEMENT 
(4) 001150 000 $MAMS1: .BYTE AMAMS1 3sHIGH ADDRESS,.M.S. BYTE 
(4) 001151 000 S$MTYP1: .BYTE AMTYP1 ::MEM. TYPE, BLK 
(4) 3* MEM.TYPE BYTE == (HIGH BYTE) 
(4) 3* 900 NSEC CORE= 
(4) 3* 300 NSEC BIPOLAR=002 
(4) ve 500 NS mOs= 
(4) 001152 000000 $MADR1: .WORD AMADR1 i HIGH ADDRESS BLK 
(4) rr ; MEM.LAST ADDR. use BYTES, THIS WORD AND LOW OF “‘TYPE’’ ABOVE 
(4) 001154 000 $MAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS M.S. BYTE 
(4) 001155 000 SMTYP2: .BYTE AMTYP2 ::MEM.TYPE,BLK 
(4) 001156 000000 SMADR2: .WORD AMADR2 ;:MEM.LAST ADDRESS,BLK#2 
(4) 601160 000 $MAMS3: .BYTE AMAMSS ::HIGH ADDRESS.M.S.BYTE 
(4) 001161 000 SMTYP3: .BYTE AMTYP3 ::MEM.TYPE,BLK&3 
(4) 001162 000000 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS,BLK#3 
(4) 001164 000 SMAMS4: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 
(4) 001165 000 SMTYP4: .BYTE AMTYP4 ::MEM.TYPE,BLK#4 
(4) 001166 000000 SMADR4: .WORD AMADR4 ::MEM.LAST ADDRESS, BLK#4 
(4) 001170 000000 SVECT1: .WORD AVECT1 ::INTERRUPT VECTOR#1,BUS PRIORITY#1 
(4) 001172 000000 $VECT2: .WORD AVECT2 ::INTERRUPT VECTOR#2BUS PRIORITY#2 
(4) 001174 160010 $BASE: .WORD ABASE 
(4) BASE ADDRESS OF EQUIPMENT UNDER TEST 
(4) 001176 000000 SDEVM: <.WORD ADEVM VICE MAP 
(4) 001200 000000 $CDW1: <:WORD  ACDW1 ? CONTROLLER DESCRIPTION WORD#1 
(4) 001202 000000 SCDW2: WORD ACDW2  ;;CONTROLLER DESCRIPTION WORD#2 
(4) 001204 000000 $DDWO: .WORD ADDWO 3; sDEVICE DESCRIPTOR WwORD#0 
(4) 001206 000000 $DDW1: . WORD ADDW1 VICE DESCRIPTOR WORD#1 
(4) 001210 000000 $DDW2: .WORD ADDW2 ::DEVICE DESCRIPTOR WORD#2 
(4) 001212 $DDW3: .WORD ADDW + IDEVICE DESCRIPTOR WORDS 








CNDZC=A_MACY11 Bok 1066) 
CNDZCA.P11 10=DEC=82 15:31 
(4) potgie 000000 
(4) 001216 000000 
(4) 001220 000000 
(4) 001222 0000 
(4) 001224 000000 
(4) 001226 0000 
(4) 001230 000000 
(4) 001232 
(4) 001234 000000 
(4) 001236 000000 
(4) 001240 000000 
(4) 001242 000000 
(4) 
(4) 
(4) 001244 


14=DEC=82 10:09 PAGE 77-9 
APT MAILBOX-E TABLE 


$DDW15: 


SETEND: 


ADDW15 


CE 
CE 

VICE DESCRIPTOR WORD# 
3 Beetnipron nes 


3;DEVICE DESCRIPTOR WORD#14 
3sDEVICE DESCRIPTOR WORD#15 


SEG 0023 
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-SBTTL COMMON TAGS 


~ 
Ww 
~~ 


(3) 

(4) RARRRERAR ERRATA AREER EERE A RARER ARERR RERE ERE RERE TETHER E 

(3) SATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

{3 Z*USED IN THE PROGRAM. 

(3) 001244 SCMTAG: 33START OF COMMON TAGS 

(3) 001244 000000 WORD 0 

(3) 001246 000 STSTNM: .BY 0 :sCONTAINS THE TEST NUMBER 

(3) 001247 000 SERFLG: .BY 0 3:CONTAINS ERROR FLAG 

(3) 001250 000000 SICNT: .WORD 0 zsCONTAINS SUBTEST ITERATION COUNT 
(3) 001252 000000 $LPADR: . 0 3;CONTAINS SCOPE LOOP ADDRESS 
(3) 001254 0000 SLPERR: .WORD 0 3sCONTAINS SCOPE RETURN FOR ERRORS 

(3) 001256 000000 SERTTL: .WORD 0 3;CONTAINS TOTAL ERRORS BYTE 
(3) 001260 000 SITEMB: .BYTE 0 3sCONTAINS ITEM CONTROL BYTE 
(3) 001261 001 SERMAX: .BY 1 3sCONTAINS MAX. ERRORS P 
(3) 001262 000000 SERRPC: .W 0 3sCONTAINS PC OF LAST Tans INSTRUCTION 

(3) 264 000000 $GDADR: . 0 3:CONTAINS ADDRESS OF ° 

(3) 001266 000000 $BDA ° 0 3sCONTAINS ADDRESS OF ° AD DAT 

(3) 001270 000000 SGDDAT: .WORD 0 3sCONTAINS ‘GOO 

(3) 001272 000000 SBDDAT: .WORD 0 zs;CONTAINS ‘BAD’ DATA 

(3) 001274 0000 oW 0 3 sRESERVED--NOT TO BE USED 

(3) 001276 000000 WORD 0 

(3) 001300 000 $AUTOB: .BYTE 0 zAUTOMATIC MODE INDICATOR 

(3) 001301 00 SINTAG: .BYTE 0 : PINTERRUPT MODE INDICATOR 

(3) 001302 000000 -WORD 0 

(3) 001304 177570 $ WORD DSWR zsADDRESS OF SWITCH REGISTER 

(3) 001306 177570 DISPLAY: .WORD DDISP 2sADDRESS OF DISPLAY REGISTER 

(3) 001310 177560 $TKS: 177560 zsTTY KBD STATUS 

(3) 001312 177562 $TKB: 177562 7:TTY KBD BUFFER 

(3) 001314 177564 $TPS: 177564 seTTY PRINTER STATUS REG. ADDRESS 

(3) 001316 177566 $TPB: 177566 ze TTY PRINTER R REG. AD ai 

(3) 0013 00 $NUL 8B 0 2sCONTAINS NULL yore FOR FILLS 

(3) 001321 002 S$FILLS: .BYTE 2 2sCONTAINS # OF FILLER C CHARACTERS meovire 

(3) 001322 012 S$FILLC: .BYTE 12 22 INSERT FILL CHARS. AFTER A NE _F 

(3) 00 000 STPFLG: .BYTE 0 ;* TERMINAL AVAILABLE FLAG. (BIT<07>=0=YES) 

(3) 001324 000000 SREGAD: .W 0 33 CONTAINS THE ADDRESS F 

(3) ssWHICH ($REGO) WAS OBTAINED 
(5) 001326 0000 $REGO: .WORD 0 zsCONTAINS (($REGAD) +0) 

(5) 001330 000000 $REG]: .WORD 0 ssCONTAINS ((S$REGAD) +2) 
(5) 001332 000000 $REG2: .WORD 0 ssCONTAINS (($REGAD) +4) 
(5) 000000 $REGS: .WORD 0 z3CONTAINS (($REGAD) +6) 

(5) 001336 000000 $REG4: .W 0 Speedy te (($REGAD) +10) 

(5) 001340 000000 $REGS: . 0 ssCONTAINS (($REGAD) +12) 

(5) 001342 000000 STMPO: .WORD 0 3sUSER DEFINED 

(5) 001344 000000 STMP1: . 0 3sUSER DEFINED 

(5) 001346 000000 $TMP2: .WORD 0 3sUSER DEFINED 

(5) 001350 000000 STMP5: .WORD 0 3sUSER DEFINED 

(5) 001352 000000 WORD 0 2sUSER DEF INED 

(3) 001354 000000 STIMES :MAX. NUMBER OF ITERATIONS 

(3) 001356 077 U ASCII /2?/ SF OUEST ION MARK 

(3) 001357 015 $CRLF: .ASCII <15> 3aCA ee RETURN 

(3) 001360 000012 $LF: eASCIZ <12> 23LINE FEED 
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ERROR POINTER TABLE SEQ 0025 
-SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS Lo # INFORMATIOM FOR EACH ERROR THAT CAN ae 
BTAINED HE INDEX hy FO 


$ Y PERTINENT DATA IS ¢ 
s SNOTE E2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3* EM 3;POINTS TO THE ERROR MESSAGE 
ied DH 3;POINTS TO THE DATA HEADER 
5* DT z;POINTS TO THE DATA 
:* DF :;POINTS TO THE DATA FORMAT 
SERRTB 


PROGRAM CONTROL PARAMETERS 


NEXT: QO ADDRESS OF NEXT TEST TO BE EXECUTED 
LOCK: 0 sADDRESS FOR LOCK ON CURRENT TEST,TIGHT LOOP 


PROGRAM VARIABLES 


LINE: 17 1 9 Mee ALL FOUR LINES RUNNING 

PAR: 17470 ARAMETERS: 8 BITS/CHAR,2 STOP BITS,19200 BAUD,NO PARIT 
MODE 0 EDEFAULT MAINTENANCE MODE 

SAVLIN: 0 NUMBER 

XMTLIN: 0 ; TRANSMISSION LINE NUMBER 

XMTCNT: 0 ;COUNT OF WORDS IN A TRANSMISSION PATTERN 
REGIST: 0 :DEVICE ADDRESS STORAGE LOCATION 

SAVPC: 0 ROGRAM COUNTER STORAGE 

DZVACTV:.BLKW 1 eDZVIT' S a ACTIVE. 

SAVACTV: .BLKW 1 7*A BIT MAP OF D2V11°S IN THE SYSTEM 

RUN: 1 ;*POINTER ONE PAST RUNNING DEVICE. 

DZVNUM: .BLKB 1 s*OCTAL NURGER OF DZV11°S IN THE SYSTEM 
SAVNUM: .BYTE 1 ;*WORKABLE NUMBER. 

SAVNO: .BLKB 1 S*OCTAL NUMBER OF DZV11°S BEING TESTED 


-EVEN 
ACTIVE: DZV.MAP TABLE POINTER. 


sO ee a ee — ——————————— 
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|CNDZCA.P11 10=DEC=82 15:31 ERROR POINTER TABLE . SEQ 0026 
(2) 
;PROGRAM CONTROL FLAGS 
001422 000 INIFLG: .BYTE 0 PROGRAM INITIALIZATION FLAG 
i 001425 000 HDRFLG: .BYTE 0 ; PROGRAM oe MP oe be FLAG FOR HEADER MAP 
001424 000 MNTFLG: .BYTE 0 ;MAINTENANCE BIT SET FLAG 
001425 000 ro” BYTE 0 ; TRANSMISSION COMPLETION FLAG 
;DATA VARIABLES 

001426 000000 TOO: -WORD 0 
001430 000000 TDI: WORD 0 
001432 000000 TD2: -WORD QO 
001434 000000 TD3 WORD 0 

36 000000 TRO «WORD QO 
001440 000000 TRI WORD 0 
001442 000000 Re: WORD 0 
001444 000000 TR3: «WORD 0 
001446 STOP: 


-SBTTL APT PARAMETER BLOCK 


FERRER ERE EERE EE REREEE EERE REE EEREREREREEEREEEREKEEEREKREREERE 


iSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


Ce tm. tc setae tae aeeeneee Tc oe ee 


001446 - $X=. 23 SAVE CURRENT LOCATION 

000024 2=2 3;SET POWER oor TO POINT TO START OF PROGRAM 
000024 000200 200 22 FOR APT START UP 

000044 .=44 :3POIN NT TO APT INDIRECT ADDRESS PNTR. 
000044 001446 SAPTHDR ;;POINT TO APT HEADER BLOCK 

001446 =. $X SERESET LOCATION COUNTER 


Tete it ital iti tttt tite e i tit itis iii iii tipper 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


001446 SAPTHD: 

001446 000000 $HIBTS: .WORD 0 TWO HIGH BITS OF 18 BIT ote ADDR. 

001450 001120 S$MBADR: .WORD $MAIL 3 ADDRESS OF APT MAILBOX (BITS 0-15) 

001452 000000 STSTM: .WORD 0. sRUN TIM OF LONGEST test 

001454 000000 SPASTM: .WORD 0. 3 RUN TIME IN SECS. OF 1ST PASS - 1 UNIT (QUICK VERIFY) 

001456 000000 SUNITM: a" 0. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


RRR AR RAR AAA ARR ARR RAR ARR AR RAR RAR AR AAA AAA AAA AAA AAA AOAC 
WNIWNWNNWNWWIWNW 9 8 3 3  PONONUPNDNUNUPU NUN ANINININIPINIWNIWWPIPNPINPNONYNPNNPY PoNofnonoronynofenufroefr 


ee Ne a a ee et er ee a a a ae ee ee ae es ee ee a a a a ee ee ee a a ae te es SS YS YS YS YS YY SY 


001460 000052 ORD SETEND-SHAIL/2 3;LENGTH MAILBOX-E TABLE (WORDS) 
zb2v11 STATUS TABLE AND; ADDRESS ASSIGNMENTS 

‘001500 -=1500 
001500 DZV.MAP: 
001500 000001 DZCRO: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11_ NUMBER 0 
001502 000001 DZvcO: .BLKW 1 TRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 0 
001504 000001 LINEO: . 1 SALL LINES SELECTED 
001506 000001 PARQ: .BLKW 1 ; PARAMETERS 
001510 000001 MANTO: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
001512 000001 DZCR1: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 1 
001514 000001 DZvCi: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 1 
001516 000001 LINE1: .BLK 1 ALL LINES SELECTED 


| 
| 
| 
| 
| 


8B 3 
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CNDZCA.P11 10=DEC=82 15:31 APT PARAMETER BLOCK SEG 0027 
(3) 001520 000001 PAR1: .BLKW 1 3 PARAMETERS 
th 001522 000001 MANTI: <BLKw 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001524 000001 Becas! -BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 2 
(3) 001526 000001 DZvC2: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 2 
(3) 001530 000001 LINE2: .BLKW 1 ZALL LINES SELECTED 
(3) 001532 000001 -BLKW 1 M 
te 001534 000001 2: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001536 000001 DZCR3: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 3 
(3) 001540 000001 DZvVC3: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 3 
(3) 001542 000001 LINES: .BLKW 1 ZALL seas SELECTED 
(3) 001544 000001 PAR3: .BLKW 1 ; PARAMETERS 
$4 001546 000001 MANT3: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001550 000001 DZCR4: .BLKW 1 s;CONTROL STATUS REGISTER FOR DZV11 NUMBER 4 
(3) 001552 000001 DZVC4: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 4 
(3) 00 000001 LINES: .BLKW 1 ALL LINES SELECTED 
(3) 001556 00001 PAR4: BLKw AMETERS 
oa 001560 000001 MANT4: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001562 000001 DZCR5: .BLKW 1 de STATUS REGISTER FOR DZV11 NUMBER 5 
(3) 000001 DZvC5: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 5 
(3) 001566 000001 LINES: .BLKW 1 ZALL LINES SELECTED 
(3) 001570 000001 PARS -BLKW 1 ; PARAMETERS 
4 572 00 MANTS: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 001574 000001 DZCR6: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 6 
(3) 001576 000001 DZvC6: .BLKW 1 ;RECFIVER AND BASE VECTOR FOR DZV11 NUMBER 6 
(3) 001600 000001 LINE6: .BLKW 1 ALL LINES SELECTED 
(3) 001602 000001 PAR6 ° 1 ; PARAMETERS 
ty 001604 00 MANT6: . 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001606 000001 DZCR7: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 7 
(3) 001610 00000 DZvC7: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 7 
(3) 001612 000001 LINE7: . 1 ALL LINES SELECTED 
(3) 001614 000001 PAR? -BLKW 1 PARAMETER 
4 001616 000001 MANT7: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001620 000001 DZCR10: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 ‘JUMBER 10 
(3) 001622 000001 DZvC10: . 1 ;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 10 
(3) 001624 000001 LINE10: . 1 sALL LINES SELECTED 
(3) 001626 000001 PAR10: .BLKW 1 3 PARAMETERS 
ie 001630 000001 MANT10: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001632 000001 DZCR11: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 11 
(3) 001634 000001 DZVC11: .BLKwW 1 ;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 11 
(3) 0001 LINE11: . 1 sALL LINES SELECTED 
(3) 001640 000001 PAR11: .BLKW 1 ; PARAMETERS 
He 001642 000001 MANT11: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 000001 DZCR12: .BLKW 1 = CONTROL STATUS REGISTER FOR DZV11 NUMBER 12 
(3) 001646 00000 DZVC12: .BL 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 12 
(3) 001650 000001 LINE12: . 1 sALL LINES SELECTED 
(3) 001652 000001 PAR12: .BLKW 1 PARAMETERS 
(3) 001654 000001 MANT12: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 














‘sane 
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CNDZCA.P11 10-DEC-82 15:31 PARAMETER 
(3) 

| ¢3)-001656 000001 DZCR13: .BLKW 

| 3) 001660 000001 D7VC13: {BLKW 
(3) 001662 000001 INE13: “BLKW 

| (3) 001664 000001 PARI3: “BLKW 
(3) 001666 000001 MANTI3: - 

| (3) 001670 0 DZCR14: .BLKW 
(3) 001672 00000 D7VC14: “BLKW 
(3) 001674 000001 LINE14: “BLKW 
(3) 001676 000001 PARIG: | ° 
(3) 0017 MANT14: “BLKw 
(3) 001702 01 DZCR15: .BLKW 
(3) 001704 000001 D2VC15: “BLKW 
(3) 001706 000001 LINE15: “BLKW 
(3) 001710 000001 PARIS: “BLKW 
(3) o0I712 01 MANTIS: “BLKW 
(3) 001714 000001 DZCR16: .BLKW 
(3) 001716 000001 D7VC16: “BLKW 
(3) 001720 01 LINE16: {BLKW 
(3) 22 000001 PAR16 -BLKW 
(3) 001726 01 MANTI6: 
(3) 001726 01 DZCR17: .BLKW 
(3) 001730 000001 D7vC17: “BLKW 
(3) 00001 LINE17: .BLKW 
(3) 0001 PARI7:, 
(3) 001736 000001 MANTI7: 2BLKW 
(1) 001740 177777 DZV.END: 


BLOCK 


a a kt Ht ad ad HH aod 


177777 


C 3 


CONTROL STATUS REGISTER FOR DZV11 NUMBER 13 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 13 
ALL LINES SELECTED 


M 
MAINTENANCE MODE FOR THIS DEVICE 


CONTROL STATUS REGISTER FOR DZV11 NUMBER 14 
;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 14 
zALL i. SELECTED 


- 
MAINTENANCE MODE FOR THIS DEVICE 
RECEIVE STATUS REGISTER FOR DZV11 NUMBER 15 


RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 15 
ZALL ee P as ECTED 


PARAM 
‘MAINTENANCE MODE FOR THIS DEVICE 


+ CONTROL STATUS REGISTER FOR DZV11 NUMBER 16 
sRECEIVER AND 75s My ECTOR FOR DZV11 NUMBER 16 


ALL LINES SELECTE 
; PARAME 


[MAINTENANCE MODE FOR THIS DEVICE 


CONTROL STATUS REGISTER FOR DZV11 NUMBER 17 


RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 17 
ALL LINES SELECT ED 


;MAINTENANCE MODE FOR THIS DEVICE 


SEQ 0028 





c----Ct tr OC r+ + + + 


“NDZ 


/CND 
| 


001742 
001742 
001744 
001746 
001750 
001752 
001754 
001756 
001760 
001762 
001764 
001766 
001770 
001772 
001774 
001776 
002000 
002002 
002004 
002006 


Ce et te ee a ee te a a ee a a he at cae ht ce, ht ee, Let ca ct ce et ce, et ea, Lea ee, a a at ee, a ee, a, ee tn La a ae ~ 
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APT PARAMETER BLOCK 


: DEFINITIONS FOR 4 wre oe CALLS 
POINTERS TO SUBROUTI BE FOUND 
IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 


FERRARA AAR KE EEEAKEEEEAREE EEE AEE ARAAREREREEERAEAEERERREREEEERERER EERE 


NES CAN 


* TRPTAB: 
ADVANCE=TRAP+0 
ADV 
SCOPI=TRAP# 
TYPE=TRAP+2 
TYP 
INSTR=TRAP+3 
NSTR 
INSTER= TRAP +4 
PARAM=TRAPYS 
SETFLG=TRAPSG. 
SAVOS=TRAP+7 
SAV 
RESOS=TRAP+10 
RES 
CONVRT=TRAP+11 
CNVRT=TRAP+12 
.CNVRT 
DEVICE.CLR=TRAP+13 
-DEVICE.CLR 
DELAY=TRAP¢14 
PARMD=TRAP+15 
. PARMD 
PAWCH=TRAP+16 
DCLASM=TRAP+17 
.DCLASM 
SHIF T=TRAP+20 
LPRSET=TRAP+21 
.LPRSET 
BUF SET=TRAP+22 
FSET 


;CALL 
7 CALL 
7 CALL 
7 CALL 
7 CALL 
3CALL 
7CALL 
3 CALL 
7CALL 
7 CALL 
7 CALL 


3CALL 
sCOWVERT DECIMAL STRING TO OCTAL 

SET FLAG ECHO OR CABLE 

CLEAR DEVICE, SET MAINT. BIT IF I MODE 
:CALL 
3CALL 
7 CALL 


TO ADVANCE TO NEXT TEST 

TO LOOP ON CURRENT DATA HANDLER 

TO TELETYPE OUTPUT ROUTINE 

TO ASCII STRING INPUT ROUTINE 

TO INPUT ERROR HANDLER 

TO NUMERICAL DATA INPUT ROUTINE 

TO SET FLAG ROUTINE 

TO REGISTER SAVE ROUTINE 

TO REGISTER RESTORE ROUTINE 

TO DATA OUTPUT ROUTINE 

TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
CALL TO ISSUE A DEVICE CLEAR 

TO DELAY FOR FAST CPU'S 


TO ROTATE LINE POINTER 
TO SET UP LPR DEVICE REGISTER 
TO ZERO BUFFER AREA 


SERRA ERE AERA ERE RAEAAEAAEERERAEAEEREEREEEEEEEREREEEE 


Se 


SEQ 0029 





—_—_—————_—- SS eS 


| 
! 
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CNDZCA. Pil 10=DEC=82 15:31 


002034 160046 
002036 160047 


002040 000300 


RRR RRA RRA RRR RRR RRA RRR ARRA 
Se ee er ee Se ee a ee ee ee ee eee ye yen 
we SS SSS SY SY ee 

~m 

oO 

Ww 

So 

_ 

3 

o 

= 

oa 


DZVCSR: 
DZVRBUF : 


HDZVRBUF : 160085 3 
DZVLPR: 16 


302V11 gy} AND REGISTER INDIRECT POINTERS 
WORKING AREA 


160040 
£16002 


3: 1 
:160047 


sR/W 


;R/W 
READ ONLY 


oW 
WRITE ONLY 
iR/i 


READ ONLY 
READ ONLY 
WRITE ONLY 
WRITE ONLY 


DEFAULT DZV VECTORS 


sREC INTR VECTOR 
sREC_INTR STATUS 
sXMIT INTR VECTOR 
:XMIT INTR STATUS 


SEQ 0030 
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CND7C- 
CNDZCA.P11 - 10=DEC-82 15:31 APT PARAMETER BLOCK SEQ 0031 
(1) 
a) TIME TABLE FOR RELATIVE TIMING TESTS 
f 6a 
' (1) 002050 TMTBL: 
(1) 002050 00 50: 0 
4) 002052 00 75: 0 ? 
(1) 002054 000000 1110: 0 
/ (1) 002056 +000000 1134: 0 
| 1 002060 000000 1150: 0 
| (1) 002062 000000 1300: 0 
- «002 000000 1600: 0 
/ (1) 002 000000 T1200: 0 
(1) 002070 000000 T1800: 0 
| (1) 003072 000000 12000: 0 
/ (1) 002074 000000 12400: 0 
| (1) 002076 000000 T3600: 0 
(1) 002100 000000 14800: 0 
(1) 002102 000900 17200: 0 
(1) 002104 000000 19600: 0 
(1) 002106 000000 TEIGHT:0 
(1) 002110 TSEVEN: 0 
(1) 002112 000000 TSIX: 0 
(1) 002114 000000 TFIVE: 0 


= 





---——- — —— 
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‘CNDZCA.P11 10=DEC-82 15:31 PROGRAM INITIALIZATION AND START UP. SEQ 0032 
wees, 
| @ : PROGRAM INITIALIZATION 
| a2 [LOCK OUT INTERRUPTS 
| @ ‘SET UP PROCESSOR STACK 
| @ :SET UP POWER FAIL VECTOR 
/ a ‘CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
| (1) [TYPE TITLE MESSAGE 
' (1) 002116 000005 .START: RESET :CLEAR THE WORLD 
| (1) 002120 012706 001120 MOV #STACK,SP 7SET UP PROCESSOR STACK 
| = (4) 002124 +=106427 000200 MTPS  #MASK SLOCK wt INTER RUPT S 
(1) 002130 012737 005622 000024 MOV WSPWRON,a#24 SET UP FOR POWER FAIL 
(1) 002136 012737 002116 001252 MOV #. START, SLPADR iSET Up IN CASE OF jPOWER FAIL 
(1) 002144 105737 001141 TSTB  ©SENVM UNNING UNDER APT 
(1) 002150 100004 BPL 1$ a: PANO SKIP SWR SETUP FOR APT 
(1) 002152 012737 001142 001304 MOV #SSWREG, SWR TSETUP FOR APT SWR 
(1) 002160 000405 BR 2$ ;SKIP SOFTWARE SWR SETUP 
(1) 002162 012737 000176 001304 1$: MOV #SWREG, SWR :SETUP SOFTWARE SWITCH REGISTER OTHERWISE 
(1) 002170 006737 005404 CALL  GETSWR T INITIAL SWITCT SETTING ::GPA 
(1) 002174 012737 000174 001306 2$: MOV #DISPREG, DISPLAY. TUP ISPLAY REGISTER 
(1) 002202 005037 007050 CLR STFLG CLEAR rést START FLAG 
(1) 002206 005037 001126 CLR SPASS ICLEAR PASS COUNT 
(1) 002212 256 LR SERTTL = CLEA COUN 
(1) 002216 105037 001247 CLRB ss SERFLG iC AR ERROR FLAG 
(1) 002222 005037 001246 CLR STSTNA 2CLEAR TEST No. olNDECATOR 
(1) 002226 005037 007054 CLR AST CLEAR LAST ERROR PC 
(1) Z FOLLOWING Two Lines DELETED TO BE SPECIFIC fOr ALCON 
(1) : CAL FALCON : TEST FOR FALCON (KXT11) ::GPA 
(1) : BEO” 1000$ : BR IF NOT S:GPA 
(1) 002232 004737 013224 CALL  FALCINI : INIT FOR FALCON SYSTEM ::GPA 
(1) 002236 1000$: 72GPA 
(1) 002236 105737 001422 TSTB  ~—s INIFLG sHAS TITLE BEEN TYPED YET? 
(1) 002242 001010 BNE VEC1 iIF YES SKIP PRINTING AGAIN 
(1) 002244 023727 000042 002670 CMP 2442, #SENDAD UNNING UNDER 
(1) 002252 001402 BEQ 3$ iF VES DON'T PRINT TITLE 
(1) 002254 104402 001000 TYPE -MTITLE PRINT TITLE 
(1) 002260 105337 001422 3$: DECB  ~— INIFLG : INDICATE TITLE ALREADY TYPED 
(1) 002264 012701 000300 VEC1: MOV #300,R1 
(1) 002270 012702 000302 MOV #302,R2 
(1) 002274 010221 1$: MOV R2,(R1)+ ZRESTORE TRAPCATCHER 
(1) 002276 005022 CLR (R2)+ :IN FLOATING VECTOR AREA 
(1) 002300 022122 CMP (R1)+, (R2)+ UPDATE THE POINTERS 
(1) 002302 005737 013502 TST KXTFLAG : IF FALCON... z2GPA 
(1) 002306 001403 BEQ 1001$ ::GPA 
(1) 002310 020127 000400 CMP R1,#400 z..-QUIT AT 400. 7GPA 
(1) 002314 000402 402 : SKIP NEXT [GPA 
(1) 002316 1001$: 33 
(1) 002316 020127 001000 CMP R1,#1000 
(1) 002322 001364 BNE 1$ 
(1) 002324 GETCSR= . y POINTER FOR FALCON TWEAKER.  ;::GPA 
(1) 002324 104403 INSTR 3 INPUT ADDRESS OF DEVICE CSR 
(1) 002326 007124 MREGAD [MESSAGE "CONTROL REGISTER ADDRESS="" 
(1) 002330 104405 PARAM ; CONVERT STRING TO OCT 
(1) 002332 160000 160000 “LOW LIMIT 
(1) 092334 163770 163770 HIGH LIMIT 
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CNDZCA.P11 =: 10=DEC=82 15:31 PROGRAM INITIALIZATION AND START UP. SEQ 0033 
C1) 002336 001174 SBASE ;LOCATION TO BE FILLED 
(1) 002340 =—-007 BYTE 7 3LSB MASK 
CY 002541001 BYTE 1 NUMBER OF LOCATIONS 
; @ 002342 GETVEC= . ; POINTER FOR FALCON TWEAKER. ;;GPA 
CV) 002342 104403 INSTR ZINPUT ADDRESS OF DEVICE _VECTOR 
C1) 002344 007102 MVECTOR iMESSAGE ‘'VECTOR ADDRESS 
| CV) 002346 104405 PARAM SCONVERT STRING TO OCTAL 
| 1) 002350 000300 300 - LOW LIMIT 
(1) 002352 000770 770 3HIGH LIMIT 
(1) 002354 002040 DZVRIV ZLOCATIONS TO-BE FILLED 
| (1) 002356 «= (003 BYTE 3 :LSB MASK 
| C1) 002357 004 “BYTE 4 NUMBER OF LOCATION 
(1) 002360 004757 007704 JSR PC, DZVLEV G0 BUILD DEVICE POINTERS 
(1) 002364 104403 INSTR INPUT WHICH TEST YOU ARE RUNNING 
(1) 002366 007311 MWHICH 3EC HO_OR CABLE 
(1) 002370 104416 PAWCH : A 
(1) 002372 007046 WCHFLG THIS. FLAG 
(1) 002374 104403 BAUD: INSTR INPUT BAUD RATE 
(1) 002376 007232 MSPEED :MESSAGE ‘BAUD RATE- 
(1) 002400 104415 PARMD SCONVERT DECIMAL STRING TO OCTAL 
(1) 002402 000062 50. LOW LIMIT 
(1) 002404 022600 9600. 3HIGH LIMIT 
(1) 002406 007064 LINESP LOCATION TO BE FILLED 
(1) 002410 000 BYTE 0 :LSB MAS 
(1) 002411 001 “BYTE {NUMBER OF LOCATIONS 
(1) 002412 104413 LINEX: DEVICE. CLR CLEAR DEV 
(1) 002614 005037 007050 CLR STFLG CLEAR PROGRAM START FLAG 
(1) 002420 104403 INSTR INPUT LINE NUMBER 
(1) 002422 007222 ML INE :MESSAGE "LINE NUMBER- 
(1) 002424 104405 PARAM {CONVERT STRING TO OCTAL 
(1) 002426 000000 0 3LOW LIMIT 
(1) 002430 000003 3 3HIGH LIMIT 
(1) 002432 001374 SAVLIN LOCATION TO BE FILLED 
(1) 002434 000 BYTE 0 :LSB MASK 
(1) 002435 001 BYTE 1 NUMBER OF LOCATIONS 
(1) 002436 004537 006652 JSR RS, SET 
(1) 002442 106427 000200 XBEGIN: MIPS  #MASK LOCK OUT INTERRUPTS 
(1) 002446 012706 001120 MOV =: #STACK,, SP 3SET uP PROCESSOR STACK 
(1) 002452 005037 007052 CLR LOCKUP CLEAR TIMEOU 
(1) 002456 005737 007046 TST —- WCHFLG SECHO OR CABLE TEST ? 
(1) 002462 001413 BEQ = $ ZECH 
(1) 002464 012737 010420 001252 MOV  #TST2,$LPADR CABLE TEST 
(1) 002472 005737 007050 TST —STFLG ;ARE YOU LOOPING ? 
(1) 002476 001017 BNE 1$ ZYES 
(1) 002500 005137 007050 COM  —- STFLG :NO 
(1) 002504 104402 007404 TYPE ,MCABLE TYPE CABLE TEST 
(1) 002510 000412 be 
(1) 002512 012737 010044 001252 2$: MOV = #TST1,$LPADR —; SET UP ECHO TEST 
(1) 002520 005737 007050 TST —STFLG ZARE YOU LOOPING ? 
(1) 002524 001004 BNE 18 :YES 
(1) 002526 005137 007050 COM  — STFLG :NO 
(1) 002532 104402 007357 TYPE =, MTERM TYPE ECHO TEST 
(1) 002536 1$: 


ae Cee Ce ee ee ee ee — 
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tent 
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10=DEC-82 15:31 
002536 000177 176510 


PROGRAM INITIALIZATION AND START UP. 
RESTART: JMP @SLPADR s START TESTING, THIS yt ALSO 


USED BY THE POWER UP ROUT 
3:GPA  PRGEND DZV11,<END PASS éNDZC~A >,1 


SEQ 0034 


J 3 


/CNDZC=A MACY11 30(1046) UazeC~82 10:09 PAGE 77-21 
|ENDZCA. P11: 10=DEC=82 15:31 END OF PASS ROUTINE SEQ 0035 
7823 END OF PASS 

(2) TYPE NAME OF TEST 

(2) * UPDATE PASS COUNT 

(2) ;CHECK FOR EXIT TO ACT=11 

(2) SRESTART TES 

(3) .SBTTL END OF PASS ROUTINE 

(4) 3 PY SREREEKEEAEAAAERERAEEEREEEAEAEAERAAEEERAEAREREREAREEEAEREREREREEEE 

(3) :*INCREMENT THE PASS NUMBER ($PASS) 

(3) :*IF THERES A MONITOR GO TO IT 

(3) :*]F THERE ISN'T JUMP TO XBEGIN 

(3) 002542 SEOP: 

(5) 002542 005037 001262 CLR SERRPC ZCLEAR LAST ERROR PC 

(5) 002546 105037 001247 CLRB = SERFLG [CLEAR ERROR FLAG 

(5) 002552 104402 006037 TYPE §,MEPASS [TYPE END PASS 

(5) 002556 104402 006221 TYPE  [MCSRK [TYPE CS 

(5) 002562 104412 002704 CNVRT <>XCSR ‘SHOW IT 

(5) 002566 104402 006227 TYPE | MVECX : TYPE VECTOR 

(5) 002572 104412 002712 CNVRT  “XVEC sSHOW IT 

(5) 002576 005237 001126 INC $PASS SRAISE pass COUNT 

(5) 002602 104402 006235 TYPE §,MPASSX ZTYPE PASSES 

(5) 002606 104412 002720 CNVRT ‘XPASS HOW IT 

(5) 002612 005337 001126 DEC $PASS :RESTORE PASS COUNT 

(5) 002616 104402 006246 TYPE ,MERRX :TYPE ERRORS 

(5) 002622 104412 002726 CNVRT  -XERR ;SHOW IT 

(3) 002626 005037 001354 CLR $TIMES 7ZERO THE NUMBER OF ITERATIONS 

(3) 002632 005237 001126 INC S$PASS 3S INCREMENT THE PASS NUMBER 

(3) 002636 042737 100000 001126 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 

(3) 002644 005327 DEC (PC)+ +: LOOP? 

(3) 002646 000001 SEOPCT: .WORD 1 

(3) 002650 003013 BGT SDOAGN zi YES 

(3) 002652 012737 MOV (PC)+,a(PC)+  3;;RESTORE COUNTER 

(3) 002654 000001 SENDCT: .WORD 1 

(3) 002656 002646 $EOPCT 

(3) 002 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 

(3) 002664 001405 BEQ $DOAGN ::BRANCH IF NO MONITOR 

(3) 002666 (00005 RESET TI CLEAR THE WORLD 

(3) 002670 004710 SENDAD: JSR PC, (RO) 7:60 TO MONITOR 

(3) 002672 000240 NOP 27 SAV 

(3) 002674 000240 NOP s7FOR P 

(3) 002676 0600240 NOP SZACT11 

(3) 002700 SDOAGN: 

(3) 002700 000137 JMP a(Pcy+ + :RETURN 

(3) 002702 002442 SRTNAD: .WORD XBEGIN 

(3) 

(2) 

(2) 002704 000001 XCSR: 1 

(2) 002706 006 002 -BYTE 6,2 

(2) 002710 002010 DZ2VCSR 

(2) 002712 000001 XVEC: 1 

(2) 002714 003 002 .BYTE 3,2 

(2) 002716 002040 DZVRIV 

(2) 002720 000001 XPASS: 1 

(2) 002722 006 002 -BYTE 6,2 
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igeposaghi 10-DEC-82 15:31 END OF PASS ROUTINE SEQ 0036 
(2) 002724 001126 $PASS 
(2) 002726 000001 KERR: 1 
(2) 002730 006 002 .BYTE 6,2 
(2) 092732 001256 $ERTTL 
| (1) sCONVERT DECIMAL ASCII STRING TO OCTAL 
(1) 002734 011605 ~PARMD: MOV (SP), 
(1) 002736 012537 003120 MOV (R5)+,6$ 
(1) 002742 012537 003122 MOV (R5)+.7$ 
(1) 002746 012537 003124 MOV (R5)+.8$ 
(1) 002752 112537 003126 (R5)+,9$ 
(i) 002756 112537 003127 MOVB = (R5)+.10$ 
(1) 002762 010516 Moy R5,(S 
(1) 002764 005005 2$: CLR R5 
(1) 002766 012704 007536 MOV #INBUF RG 
(1) 002772 122714 000015 CMPB «#15, (R4) 
(1) 002776 0071424 BEQ 
(1) 003 121427 000060 1$: CMPB ss (RG) , #"0 
(1) 003004 002421 BLT 
(1) 003 121427 000071 CMPB ss (RG) , #"9 
(1) 003012 003016 ‘ BGT % 
(1) 003014 142714 000060 BICB = #*0, (R4) 
(1) 003020 005002 CLR R 
(1) 003022 152402 BISB (R4)+,R2 
(1) 003024 060205 ADD R2,R5 
(1) 003026 122714 000015 CMPB «#15, (RG) 
(1) 003032 001410 BEQ 4$ 
(1) 003034 006305 ASL R5 x2 
(1) 003036 010502 MOV R5,R2 SAVE x2 
(1) 003040 006305 ASL RS X4 
(1) 003042 006305 ASL R5 X8 
(1) 060205 ADD R2,R5  :TIMES 10 
(1) 003046 000754 BR $ 
(1) 003050 104404 3$: INSTER 
(1) 003052 000744 BR 2$ 
(1) rTEST TO SEE IF NUMBER IS WITHIN LIMITS 
(1) 003054 020537 003122 4$: CMP R5,7$ 
(1) 003060 101373 BHI 3$ 
(1) 003062 020537 003120 CMP R5,6$ 
(1) 003066 103770 BLO $ 
(1) 003070 133705 003126 BITB 9$,R5 
(1) 3074 001365 BNE 3$ 
1) :STORE NUMBER AT SPECIFIED ADDRESS 
(1) 003076 013704 003124 MOV 8$,R4 
(1) 003102 010524 5$: MOV R5.(R4)+ 
(1) 003104 062705 000002 ADD #2-R5 
(1) 003110 105337 003127 DECB sé 
(1) 003114 001372 BNE 5$ 
(1) 003116 000002 RTI 
(1) 003120 000000 6$: 
(1) 003122 000000 7$: 0 
(1) 003124 000000 8$: 0 








pos 
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CNDZCA.P11 10=DEC=82 15:31 END OF PASS ROUTINE SEQ 0037 
1) 003126 000 9$: -BYTE 0 
003127 000 10$: -BYTE 0 
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3 CHECK FOR FREEZE ON CURRENT DATA 


003130 032777 001000 176146 .SCOP1: BIT #SWO9,aSwWR Ht su09=1 (SET)? 
003136 001405 BEQ 1$ F NOT 
003140 005737 001364 TST LOCK ifs THERE A TIGHT LOOP SPECIFIED? 
003144 001402 BEQ 1$ Z1F NO, RETURN 
003146 013716 001364 MOV LOCK, (SP) 1F YES, GOTO THE ADDRESS IN LOCK. 
003152 000002 1$: RTI :GO BACK. 
003154 032777 010000 176122 .TYPE: BIT #SW12,aSWR stg ty ALL we 
003162 001403 BEQ STYPE YPE 
3164 062716 000002 ADD #2, (SP) ‘SKIP Over MESSAGE POINTER 
003170 000002 RTI RETURN TO WHERE PROCEDURE WAS INVOKED 


-SBTTL TYPE ROUTINE 


FREER EEEEEEEEREEEREEERETEREREEEEREEREEREREEEEEKEEREEREREEEE 


: SROUTINE TO TYPE ASCIZ gy * MESSAGE MUST TERMINATE WITH AO B 


*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE. reéD. 

*NOTE1: SNULL CONTAINS THE een ae y BE USED AS THE FILLER CHARACTER. 
:*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
 *NOTES: SFILLC CONTAINS THE CHARACTER 0 FILL AFTER. 


i*CALL: 
:*1) = A TRAP INSTRUCTION 
YPE oMESADR 33MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


er et ee a et et et et a et et et et er a et et a et er et er a ee ee ee ee ee a ee ee a ae ae ee ee ee ee ae ee a a 


ROPGPONNONDNONDNNYNONININYNINININININININININININYNI NINN NINN NINN WN) 2 3 2 2 tt 


30R 
te TYPE 
e* MESADR 
2¢ 
003172 105737 001323 $TYPE: TSTB  $TPFLG z:1S THERE A TERMINAL? 
003176 100002 BPL 1$ ':BR IF YES 
003200 000000 HALT T:HALT HERE IF NO TERMINAL 
003202 000430 BR 3$ 3 SLEAVE 
003204 010046 1$: MOV RO,-(SP) “SAVE RO 
003206 017600 000002 MOV a2(SP),RO ::GET ADDRESS OF ASCIZ STRING 
003212 122737 000001 001140 CMPB #APTENV,SENV ::RUNNING IN APT MOD 
003220 001011 BNE 62$ 3:N0, GO CHECK FOR APT CONSOLE 
003222 132737 000100 001141 BITB § #APTSPOOL,SENVM ::SPOOL ME SSAGE TO APT 
003230 001405 BEQ 62$ [NO,GO CHECK FOR CONSOLE 
003232 010037 003242 MOV RO,61% : SETUP MESSAGE ADDRESS FOR APT 
003236 004737 003462 JSR PC: SATY3 t:SPOOL MESSAGE TO AP 
003242 000000 61$: .WORD 0 S:MESSAGE ADDRESS 
003244 132737 000040 001141 62$: BITB  #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
003252 001003 BNE 33YES,SKIP TYPE OUT 
003254 112046 2$: MOVB = (RO) +, =( SP) [PUSH CHARACTER TO BE TYPED ONTO STACK 
003256 001005 BNE 4$ t3BR IF IT ISN'T THE TERMINATOR 
003260 005726 TST (SP)+ ::IF TERMINATOR POP IT OFF THE STACK 
003262 012600 60$: MOV {SPs RO S:RESTORE R 
003264 062716 000002 3$: ADD (SP) SADJUST RETURN PC 
003270 000002 RTI 7 :RETU 
003272 122716 000011 4$: CMPB ont. SZBRANCH IF <HT> 





Siete ae CNDZC=A MACY11 30(1046) 14=DEC=82 10:09 PAGE 7724 | 
¢ CNDZCA.P11  10=DEC-82 15:31 TYPE ROUTINE SEQ 0038 
| (2) 003276 001430 BEQStsé8S 
| 2) 003300 122716 000200 CMPB so WCRLF, (SP) BRANCH IF NOT <CRLF> 
(2) 003304 001006 BNE S 
(2) 003306 005726 TST  (SP)4 POP <CR><LF> EQUIV 
(2) 003310 104402 TYPE :TYPE A CR AND LF 
(2) 003312 001357 SCRLF 
(2) 003314 103037 003450 CLRB - $CHARCNT : CLEAR CHARACTER COUNT 
| (2) 003320 000755 BR 2$ SIGET NEXT CHARACTER 
(2) 003322 004737 003404 S$: JSR _—s-PC STYPEC 3G0 TYPE THIS CHARACTER 
(2) 003326 123726 001322 a3; twPBSCSFILLCLUSP)+ 2218 IT TIME-FOR FILLER CHARS. ? 
(2) 003332 001350 BNE :1F NO GO GET NEXT CHAR. 
(2) 003334 013746 001320 NOV SNULL.-(SP) F3GET # OF FILLER CHARS. NEEDED 
(2) AND THE NULL CHAR. 
(2) 003340 105366 000001 7$: -DECB.=—s«-1¢ SP) ::DOES A NULL NEED TO BE TYPED? 
(2) 003 0027 BLT 6$ 3:BR IF NO=--GO POP THE NULL OFF OF STACK 
(2) 003346 004737 003404 JSR. PC, STYPEC $:G0 TYPE A NULL 
(2) 003352 105337 003450 DECB © $CHARCNT D0 NOT COUNT AS A COUNT 
(2) 003596 000770 BR 7$ ::LOOP 
(3) ;HORIZONTAL TAB PROCESSOR 
(3) 003360 112716 000040 8$:  MOVB #* ,(SP) ;;REPLACE TAB WITH SPACE 
(2) 003364 004737 003404 9$: JSR _—s-PC, STYPEC ::TYPE A SPACE 
(2) 003370 132737 000007 003450 BITB #7, $CHARCNT :zBRANCH IF NOT AT 
(3) 003376 001372 BNE TAB STOP 
(2) 003400 005726 TST (SP)+ ‘pop SPACE OFF STACK 
(2) 003402 000724 BR 2$ $:GET NEXT CHARACTER 
(3) 003404 105777 175704 STYPEC: TSTB STP SiWAIT UNTIL PRINTER IS READY 
(3) 003410 100375 BPL  —«- $TYPEC 
(2) 003412 116677 000002 175676 MOVB  2(SP),aSTPB «LOAD CHAR TO BE TYPED INTO DATA REG. 
(3) 003420 122766 000015 000002 cMPB #CR,2(SP) 31S CHARACTER A CARRIAGE RETURN? 
(2) 003426 001003 BNE : BRANCH tr 
(2) 003430 105037 003450 CLRB - $CHARCNT ;:YES==CLEAR CHARACTER COUNT 
(2) 003434 000406 BR S$TYPEX T 
(2) 003436 122766 000012 000002 1$:  CMPB = #LF,2(SP) tis CHARACTER A LINE FEED? 
(2) 003444 001402 BEQ  $TYPEX ::BRANCH IF YES, 
(2) 003446 105227 INCB (PC) + {{BGUNT THE CHARACTE 
(2) 003450 000000 $CHARLNT:.WORD 0 SSEHARACTER COUNT STORAGE 
(2) 003452 000207 $TYPEX: RTS PC 
3 
@) .SBTTL APT COMMUNICATIONS ROUTINE 
(3) SRAAEREREREAAEEAAEEEEAEEEEEAEEEAAEAEAEEKAEAEEAEKEREREREEEREEEREEEEE 
(2) 003454 112737 000001 003720 $ATY1: MOVB #1,SFFLG 3:70 REPORT FATAL ERROR 
(2) 003462 112737 000001 003776 SATY3: MOVB 4#1.SMFLG 3:10 TYPE A MESSAGE 
(3) 003470 000403 BR $ATYC 
(2) 003472 112737 000001 003720 $ATY4: MOVB 4#1,$FFLG 3370 ONLY REPORT FATAL ERROR 
(2) 003500 SATYC: 
(4) 003500 010046 MOV _—-RO, =( SP) : PUSH RO ON STACK 
(4) 003502 010146 MOV —s R11. =(SP) PUSH R1_ON STA 
(2) 003504 105737 003716 TSTB © $MFLG ;:SHOULD TYPE A MESSAGE? 
(3) 003510 001450 BEQ 0 s«éSS$ : TF NOT: 
(3) 003512 122737 000001 001140 CMPB WAPTENV,SENV OPERATING UNDER APT? 


ce rs we ee ee —— 
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CNDZCA.P11 0-DEC-82 15:31 APT COMMUNICATIONS ROUTINE SEQ 0039 | 
(2) 003520 001031 BNE 3$ z1F NOT: BR 
(2) 003522 132737 000100 001141 BIT8 §§ #APTSPOOL,SENVM : SHOULD SPOOL MESSAGES? 
(2) 003530 001425 BEQ F NOT: BR 
(2) 003532 017600 000004 MOV a4(SP),RO S:GET MESSAGE ADDR 
(2) 003536 062766 000002 000004 ADD #2,4(SP) BUMP RETURN ADDR. 
(2) 003544 005737 001120 1$: TST SMSGTYPE z:SEE IF “BONE W/ LAST XMISSION? 
(2) 003550 001375 BNE 1s s:IF NOT: WAIT 
(2) 003552 010037 001134 RO, $M 
(2) -:PUT ADDR IN NATLBOX 
(2) 003556 105720 2$: TSTB 2s (ROD + ::FIND END OF MESSAGE 
(2) 003560 001376 BNE $ 
(2) 003562 163700 001134 SUB SMSGAD,RO ::SUB START OF MESSAGE 
(2) 003566 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
(2) 003570 010037 001136 MOV RO, $MSGLGT iEPUT LENGTH IN MAILBOX 
(2) 003574 012737 000004 001120 MOV #4, SMSGTYPE ::TELL APT TO TAKE MSG. 
(2) 003602 000413 BR 
(2) 0036046 017637 000004 003630 3S: MOV a4(SP),4$ :PUT MSG ADDR IN JsR LINKAGE 
(2) 003612 062766 000002 000004 ADD #2,4(SP) -BUMP R TURN ADDRESS 
(4) 003620 013746 177776 MOV 177776, =(SP) ::PUSH 199776 ON STACK 
(2) 003624 004737 003172 JSR PC, $TYPE S:CALL TYPE MACRO 
(2) 003630 000000 4$: -WORD 0 
(2) 003632 5$: 
(2) 003632 105737 003720 10$: TSTB  $FFLG SHOULD REPORT FATAL ERROR? 
(2) 003636 001416 BEQ 12S F NOT 
(2) 003640 005737 001140 TST SENV : [RUNNING UNDER APT? 
(2) 003644 001413 BEQ 12$ NOT: BR 
(2) 003646 005737 001120 11$: TST SMSGTYPE HIFINISHED LAST MESSAGE? 
(2) 003652 001375 BNE TIF WAIT 
(2) 003654 017637 000004 001122 MOV a4(SP),SFATAL t5GET NERROR 
(2) 003662 062766 000002 000004 ADD #2,4(SP) sBUMP RETURN ADDR. 
(2) 003670 005237 001120 INC $MSGTYPE ti TELL APT TO TAKE ERROR 
(2) 003674 105037 003720 12$:  CLRB  $FFLG *:CLEAR FATAL FLAG 
(2) 003700 105037 003717 CLRB = $SLFLG *:CLEAR LOG FLAG 
(2) 003704 105037 003716 CLRB = $MFLG 33CLEAR MESSAGE FLAG 
(4) 003710 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(4) 003712 012600 MOV (SP)+.RO 3 POP STACK INTO RO 
(2) 003714 000207 RTS PC ZRETURN 
(2) 003716 SMFLG: .BYTE 0 s:MESSG. FLAG 
(2) 003717 000 SLFLG: .BYTE 0 
(2) :LOG FLAG 
(2) 003720 000 SFFLG: .BYTE 6° Z:FATAL FLAG 
(2) 003722 .EVEN 
(2) 000200 APTSIZE=200 
(2) 000001 APTENV=001 
(2) 000100 APTSPCOL=100 
(2) 000040 APTCSUP=040 
(1) :STRING INPUT ROUTINE 
(1) ‘ 
(1) 003722 010346 INSTR: MOV R3,-(SP) ySAVE R3 ON STACK 
(1) 003724 010446 MOV R4,-(SP) SSAVE R4 ON STACK 
(1) 003726 017637 000004 003744 MOV a4(SP),.MSG ‘GET THE ADDRESS OF THE MESSAGE TO BE PRINTED 
(1) 003734 062766 000002 000004 ADD #2,4(SP) [POINT To INSTRUCTION AFTER ADDRESS POINTER 
(1) 003742 104402 .INST1: TYPE SPRINT THE M 
(1) 003744 000000 “MSG: 0 *MESSAGE IS POINTED TO FROM HERE 
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APT COMMUNICATIONS ROUTINE 


1$: 


2$: 


- INSTE: 


INSTR2: 


-PARAM: 


PARAM1: 


1$: 


PARERR: 


MOV #INBUF RG ;POINT R4 TO THE INPUT BUFFER 

#7,R3 :SET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED 
astKs ‘HAS A CHARACTER BEEN RECEL VED? 

BPL 1$ SIF NO, KEEP WAITING FOR IT 

aSTKB, (R4) SIF YES, SAVE IT IN THE INPUT BUFFER 

BiCB #200, (R4) SKEEP ONLY THE 7-BIT ASCII INFORMATION 

CMPB (R4)$ #15 iTS THIS CHARACTER A LINE FEED? 


BEQ INST 31F $0 TERMINATE THE INPUT SEQUENCE 

TSTB = aS TPS 31F NO Of, CHECK TO SEE IF THE CHARACTER CAN PRINT 
BPL 2$ IF WE mth WAIT UNTIL WE CAN 

MOV a$TKB,a$TPB 3ECHO THE CHARACTER BACK 

DEC R3 EDUCE THE NUMBER OF CHARACTERS RECEIVED 
BNE TIF WE DON'T HAVE 7, 60. GET — MORE 

MOV (SP)+,R4 TIF WE HAVE 7, RESTORE R 

MOV (SP}+,R3 SRESTORE R3 

MOV R3,-(SP) ‘SAVE R3 ON THE STACK 

MOV R4,=(SP) SSAVE R4 ON THE STACK 

TYPE ,$QUES ‘PRINT A QUESTION MARK... WHAT'S GOING ON? 
BR “INSTI :GO PRINT THE MESSAGE AGAIN 

MOV (SP) +,R4 TRESTORE R4 

MOV (SP)+-R3 TRESTORE R3 

RTI [RETURN TO THE MAIN PROCEDURE 


CONVERT ASCII STRING TO OCTAL 


SEQ 0040 


MOV R5,-(SP) sSAVE R5 ON 3 STACK 

MOV R4,-(SP) ;SAVE_R4 ON THE STACK 

MOV 4(SP),R5 :GET THE SETUP INFORMATION POINTER 

MOV (R5)+,LOLIM SET THE LOW LIMIT FOR THE INPUT 

MOV (R5)+,HILIM ;SET THE HIGH LIMIT FOR THE INPUT 

MOV (R5)+,DEVADR 7SAVE THE ADDRESS WHERE THE RESULT WILL BE STORED 

MOVB (R5)+,LOBITS 7GET THE MASK OF THE INCORRECT BITS 

MOVB (R5)+,ADRCNT sGET THE COUNT OF ITEMS TO BE STORED 

MOV R5,4(SP) POINT TO WHERE MAIN LINE PROGRAM WILL RESUME 

CLR R5 INITIALIZE THE ASCII TO OCTAL RESULT WORD 

MOV #INBUF ,R4 ;POINT TO THE INPUT BUFFE 

CMPB #15, (Rd) 21S THIS CHARACTER A CARRIAGE RETURN? 

BEQ PARERR 31F SO, PRINT THE MESSAGE AGAI 

CMPB (R4) ,#60 21S THIS CHARACTER BELOW THE NUMERIC RANGE? 

BLT PARERR 31F SO, GO PRINT THE MESSAGE IN 

CMPB (R4) ,#67 21S THIS CHARACTER ABOVE THE NUMERIC RANGE? 

BGT ARERR zI1F SO, GO PRINT THE MESSAGE AGAIN 

BICB #60, (R4) ISOLATE THE NUMBER THE CHARACTER REPRESENTS 

BISB (R4)+,R5 sCONCATENATE THESE BITS TO THE ALREADY nee STRING 

CMPB #15, (R4) 31S THE NEXT CHARACTER A CARRIAGE RETU 

BEQ LIMITS 31F SO SEE IF NUMBER IS WITHIN 

ASL R5 sCLEAR BIT POSITION 0, MOVE EXISTING STRING TO LEFT 

ASL R5 = CLEAR POSITION 1, MOVE STRING TO LE 

ASL R5 MOVE 3 STRING ONE MORE TIME TO MAKE ROOM FOR 
;NEXT THREE BITS 

BR 1$ 3G0 GET THE Ray | CHARACTER 

INSTER ;THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN 

BR PARAM1 ; TRY GETTING THE PARAMETERS AGAIN 


TEST TO SEE IF NUMBER IS WITHIN LIMITS 
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jen P11 10=DEC=82 15:31 APT COMMUNICATIONS ROUTINE SEQ 0041 
| 004166 020537 004240 LIMITS: CMP R5S,HILIM :DOES RESULT ercere ITS MAXIMUM oo VALUE ? 
| 004172 101373 BHI PARERR S$. G HE MESSAGE A 

004774 020537 004236 CMP R5S,LOLIM HIS THE RESULT LOWER THAN ALLOW D. 
| 004200 103770 BLO PARERR S, GO PRINT THE MESSAGE AGAIN 

004202 133705 004244 BITB LOBITS,R5 ARE ANY INCORRECT BITS SET IN THE RESULT? 
004206 001365 BNE PARERR :I1F SO, GO PRINT THE MESSAGE AGAIN 

STORE NUMBER AT SPECIFIED ADDRESS 

004210 013704 004242 MOV DEVADR,R4 POINT TO THE oo WHERE THE RESULT WILL BE STORED 

004214 010524 1$: MOV RS, (R4)+ STORE THE RESU 

004216 062705 000002 ADD #2,R5 ;CALCULATE THE UNEXT ATUM 

004222 105337 004245 DECB ADRCNT REDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED? 

004226 001372 BNE 1$ IF wens GO STORE THE NEXT DATUM 

004230 012604 MOV (SP)+,R4 RESTORE R4 

004232 012605 MOV (SP)+,R5 RESTORE R5 

34 00000 RTI sRETURN TO THE MAIN PROGRAM 
236 00000 LOLIM: 0 LOWEST eres VALUE 

004240 000000 HILIM: 0 sHIGHEST ACCEPT 

004242 000000 DEVADR: ;LOCATION ti; RESULT WILL BE STORED 

004244 000 LOBITS: .BYTE 0 s INCORRECT BITS MASK 

004245 ADRCNT: .BYTE 0 SCOUNT OF ITEMS TO BE STORED 


SAVE PC OF TEST THAT FAILED AND RO-R5 
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004246 016637 000004 001404 .SAVOS: MOV 4(SP),SAVPC sSAVE R7 (PC) 
zSAVE RO-R5 
004254 010537 001340 SvO5: MOV R5,$REG5 sSAVE RS 
004260 010437 001336 MOV R4, $REGS sSAVE R4 
004264 010337 001334 MOV R3,$REG3 sSAVE R3 
004270 010237 001332 MOV 4 SRE Ge sSAVE R2 
004274 010137 001330 MOV R1,$REG1 sSAVE R1 
004300 010037 001326 MOV RO. $REGO 7SAVE_RO 
004304 000002 RTI ;LEAVE. 
sRESTORE RO-R5 
004306 013700 001326 -RESOS: MOV $REGO,RO sRESTORE RO 
004312 013701 001330 MOV $REG1,R1 sRESTORE R1 
004316 013702 001332 MOV REG2 ,R2 sRESTORE R2 
004322 013703 001334 MOV SREGS R35 sRESTORE R3 
004326 013704 001336 MOV SREG4,R4 sRESTORE R4 
004532 013705 001340 MOV $REGS,R5 sRESTORE R 
004336 000002 RTI s LEAVE 
sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
004340 104402 001357 -CONVR: TYPE e$CRLF zPRINT A CARRIAGE RETURN 
004344 010046 ~CNVRT: MOV RO,-(SP) zSAVE RO 


pre reieeieecar ee encesiniateireentenremnentesiameingerrant renin 


dD 4 
(CNDZC=A_MACY11_30(1046) 14=DEC=82 10:09 PAGE 77-28 
[CNDZCA.P11 — 10=DEC=82 15:31 APT COMMUNICATIONS ROUTINE SEQ 0042 
| (1) 006346 010146 MoV = R1,=(SP) SAVE R1 
(1) 004350 010346 MOV R3,-(SP) 7SAVE R3 
| C1) 006352 010446 MOV =—-R4, = (SP) iSAVE R4 
(1) 004354 010546 MOV R5,=(SP) 3SAVE_R5 
| 1) 004356 017601 900072 MOV a12(SP) Rt ZPLACE THE ADDRESS OF THE ARGUMENTS IN R1 
(1) 004362 062766 000002 000012 ADD =: #2, 12(SP) POINT TO WHERE MAIN PROGRAM WILL RESUME 
(1) 004370 012137 004514 MOV. (R1)*,WRDCNT © GET NUMBER OF WORDS TO BE PRINTED 
(1) 006374 112105 1$: MOVB «= (R1)+,R5 ZGET THE NUMBER OF CHARACTERS TO BE PRINTED 
(1) 004376 112100 MOVB  (R1)+,RO 3GET THE NUMBER OF SPACES TO PRINT 
(1) 004400 013104 MOV = a(R1)#,R4 COPY THE WORD TO BE CONVERT 
(1) 004402 110537 004516 MOVB RS, CHRCNT COPY THE CHARACTER COUNT 
(1) 004406 010403 3$: MOV R4 RS COPY THE ARGUMENT WORD AGAIN 
(1) 006410 042703 177770 BIC #*C<7>,R3 Bho ght THREE BITS TO BE oo’ AS A CHARACTER 
(1) 004414 062703 000060 ADD #060,R3 ;MAKE AN ASCII CHARACTER OUT OF THEM 
(1) 004420 110346 MOVB R3,~(SP) SAVE THAT CHARACTER 
(1) 004422 006004 ROR R4 ;MOVE THE NEXT THREE BITS INTO PLACE 
(1) 004424 006204 ASR RG MOVE THEM AGA IN 
(1) 004426 006204 ASR RG ZAND FINALLY A THIRD TIME 
33 004430 005305 DEC R5 : REDUCE CHARACTER COUNT.ARE ALL CHARACTERS 
(1) 004432 001365 BNE 3$ oTF NO, GO BUILD THE NEXT ONE. 
(1) 004434 012703 007642 MOV #MDATA,R3 :NOW POINT TO WHERE NUMBER WILL BE aor ae FROM 
(1) 004440 112623 4$: MOVB (SP)+, (R3)+ 3STORE THE CHARACTER, STARTING WITH THE MOST 
(1) 004442 105337 004516 DECB CHRCNT REDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED? 
(1) 004446 001374 BNE 4$ Z1F NO, GO TRANSFER ANOTHER 
(1) 004450 105700 TSTB RO ARE ANY ats TO BE PRINTED? 
(1) 004452 001404 BEQ 6s 6$ IF NO. DON'T SET UP ANY 
(1) 004454 112723 000040 5$: MOVB #040, (R3)+ ZADD A SPACE TO THE OUTPUT BUFFER 
(1) 004460 105300 DECB RO EREDUCE THE COUNT. SHOULD. WE PRINT MORE? 
(1) 004462 001374 BNE  5$ zIF YES. GO ADD ANOTHER SP 
(1) 004464 105013 6$: CLRB (R3) TERMINATE THE OUTPUT BUFFER WITH A ZERO 
(1) 004466 104402 007642 TYPE —_,MDATA ZPRINT THE STRING WE JUST BUILT 
(1) 004472 005337 074514 DEC  —- WRDCNT {REDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT? 
(1) 004476 001336 BNE 1$ :1F YES. GO CONVERT THEM 
(1) 004500 012605 MOV (SP) +, R5 ZRE 
(1) 004502 012604 MOV = (SP) +, RG RESTORE Ra 
(1) 004504 012603 MOV = (SP) +, R3 ZRESTORE R3 
(1) 004506 012601 MOV = (SP) #1 ZRESTORE R1 
(1) 004510 012600 MOV (SP) +, RO ZRESTORE RO 
(1) 004512 000002 RTI ;RETURN TO THE MAIN PROGRAM 
(1) 004514 000000 WRDCNT: 0 
(1) 004516 CHRCNT: .BYTE sNUMBER OF CHARACTERS TO PRINT 
(1) 004517 SPACNT: .BYTE 0 NUMBER OF SPACES TO PRINT 
(1) 004520 000000 BINWRD: 0 
(1) 
(1) {TRAP DISPATCH SERVICE 
(1) ; ARGUMENT OF TRAP IS EXTRACTED 
(1) AND USED AS OFFSET TO OBTAIN POINTER 
(1) S10 SELECTED SUBROUTINE 
(1) 004522 010046 .TRPSR: MOV — RO, = (SP) :SAVE RO. USE_RO TO FIND TRAP ROUTINE 
(1) 004524 016600 000002 MOV 2(SP),RO :GET TRAP ADDRES 
(1) 004530 005740 TST —- =(RO) :GET TRAP 
(1) 004532 111000 MOVB (RO) ,RO :GET RIGHT BYTE OF TRAP(TRAP OFFSET) 
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APT COMMUNICATIONS ROUTINE 
ASL RO POSITION OFFSET FOR TABLE INDEXING 


MOV .TRPTAB(RO),RO PLACE INDEXED ADDRESS OF TABLE IN RO 
RTS RO : TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 
:DEVICE CLEAR ROUTINE 
TISSUE A DEVICE CLEAR 
.DEVICE.CLR: 
175236 BIS ADCLR,@DZVCSR  ;SET DCLR 
175230 1$: BIT #DCLR,aDZVCSR :D1D I CLEAR? 
BNE 1$ F NO 
RTI TEXIT ROUTINE 
;ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 
.DCLASM:DEVICE.CLR 3 ISSUE_ A DEVICE CLEAR 
175214 BISB  MNTFLG,@DZVCSR :LOAD THE MAINTENANCE BIT IF IT IS I MODE 
RTI CRETURN TO CALLING ROUTINE 
DELAY: 
MOV RO,-(SP) ZSAVE RO 
MOV DLYCNT,RO :SET COUNT 
1$: DEC RO DELAY 
BNE 1$ : 
Moy (SP)+,RO SRESTORE RO 
RTI SLEAVE ROUTINE 
DLYCNT: .WORD 1 sPATCHABLE LOC FOR MORE TIME 
SADVANCE TO NEXT TEST HANDLER 
.ADVANCE:MOV —s NEXT, (SP) sCRUNCH STACK WITH ADDRESS OF NEXT TEST 
CLR LOCK "RESET TIGHT LOOP ADDRESS 
‘CHECK TO SEE IF OLD TEST GETS REPEATED 
;ROUTINE TO SHIFT LINE POINTER 
SAND SWITCH TESTS IF NECESSARY 
.SHIFT: ASLB = R2 :POINT TO THE NEXT LINE 
BIT #B1T4,R2 SHAVE WE PASSED ALL rane POINTERS? 
8 4 :IF NOT, RETURN TO THE TEST 
POP2SP sREMOVE THE TRAP CALL FROM THE STACK 
ADVANCE :GO TO THE NEXT TEST 
1$: RTI ‘RETURN TO THE PRESENT TEST 


SEQ 0043 
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'CNDZCA.P11. =: 10=DEC=82 15:31 APT COMMUNICATIONS ROUTINE SEQ 0044 
| a) ZLINE PARAMETER REGISTER SETUP ROUTINE 
(1) 004646 010146 . LPRSET :MOV R1,=(SP) sSAVE CONTENTS OF R1 
(1) 004650 010246 MOV R2. (SP) TSAVE CONTENTS OF R2 
(1) 004652 013701 001370 MOV PAR, ‘MOVE DEFAULT PARAM. INTO R1 
(1) 004656 012702 000001 MOV #1 ie sINIT. FOR LINE 1 
(1) 004662 010177 175132 1$: MOV R1.aDZVLPR [LOAD PARAM. REGISTER 
(1) 004666 005201 INC R1 [SET R1 FOR NEXT LINE 
(1) 004670 106302 ASLB sR :SET R2 FOR NEXT LINE 
(1) 004672 032702 000020 BIT #B1T4,R2 ALL LINES DONE? 
(1) 004676 001771 BEQ 1$ SIF NO LOAD NEXT LINE 
(1) 004700 012602 MOV (SP)+,R2 SRELOAD R2 
(1) 004702 012601 MOV (SP)+.R1 SRELOAD R1 
(1) 004704 000002 RTI RETURN 
(1) ZROUTINE TO ZERO DATA BUFFER 
(1) 004706 010046 BUF SET :MOV RO,=-(SP) :SAVE CONTENTS OF PO 
(1) 004710 012700 001426 MOV #700,R0 SET RO TO TOP OF BUFFER 
(1) 004714 005020 1$: CLR (RO)+ ‘EAR BUFFER LOCATION 
(1) 004716 022700 001446 CMP #STOP,RO ‘IS BUFFER ALL CLEARED 
(1) 004722 001374 SNE :IF NOT CLEAR NEXT LOCATION 
(1) 004724 012600 MOV (SP)+,R0 RELOAD RO 
(1) 004726 000002 RTI :REi 
(1) ;ERROR HANDLER 
ae pmtooeroorcceces 
(1) 004730 004737 005356 SERROR: JSR PC, SERV.G :FIND OUT IF <*G> WAS HIT 
(1) 032777 010000 174342 BIT #SW12,aSWR [BELL ON ERROR? 
(1) 001406 BEQ XBX [BR IF NO BELL 
(1) 105777 174344 TSTB asTPs STTY READY. 
(1) 100003 BPL XBX [DON'T WAIT IF TTY NOT READY. 
(1) 112777 000207 174336 MOVB #207, a$TPB [PUSH A BELL AT THE TTY. 
(1) 032777 020000 174316 XBX: BIT #SW13,aSwR ZDELETE ERROR PRINT OUT? 
(1) 001113 BNE HALTS [BR IF NO PRINT OUT WANTED. 
(1) 021637 001262 CMP (Sp)  SERRPC ;WAS THIS ERROR FOUND LAST TIME? 
(1) 001404 BEQ 1$ “BR IF YES 
(1) 011637 001262 MOV (SP) ,SERRPC RECORD BEING HERE - 
(1) 105037 001247 CLRB. —s- SERFLG ‘PREPARE HEADER 
(1) 104407 1$: SAVO5 : SAVE ALL PROC REGISTERS 
(1) 011605 MOV (SP) RS :GET THE PC OF ERROR 
(1) 162705 000002 UB 2,R5 [GET ADDRESS OF TRAP CALL 
(1) 011504 MOV (R5) RG [GET ERROR INSTRUCTION 
(1) 110437 001260 MOVB R4,SITEMB [COPY TEST NUMBER FOR “pr HANDLING 
(1) 006304 ASL 4 ‘MULT BY TWO 
(1) 061504 ADD (R5),R4 [DOUBLE IT 
(1) 006304 ASL RG MULT AGAIN 
(1) 042704 177001 BIC #177001,R4 LEAR JUNK 
(1) 062704 011110 ADD #.ERRTAB,R4 ‘GET POINTER 
(1) 012437 005166 MOV (R4)+,ERRMSG | :GET ERROR MESSAGE 
(1) 012437 005200 MOV (R4)+,DATAHD § :GET DATA HEADRER 
(1) 011437 005212 MOV (R4) DATA 'GET DATA TABLE 
(1) 105737 001247 TSTB © SERFLG = TYPE HEADER 
(1) 001403 REQ TYPMSG ‘BR IF YES 
(1) 005737 005212 TST DATABP *DOES DATA TABLE EXIST? 
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CNDZCA.P11 10=DEC-82 15:31 APT COMMUNICATIONS ROUTINE SEQ 0045 
(1) 005070 001044 BNE TYPDAT ;BR_IF YES. 
(1) 005072 104402 001357 TYPMSG: TYPE o$CRLF ; TYPE A CARRIAGE RETURN 
(1) 005076 104402 001357 TYPE oSCRiF zAND TYPE ANOTHER 
(1) 005102 005737 001364 TST LOCK 
(1) 005106 001402 BEQ 
(1) 005110 104402 006271 TYPE «MASTEK 
(1) 005114 104402 257 1$ TYPE . 
(1) 005120 104412 005350 CNVRT ,XTSTN 2SHOW IT 
(1) 005124 104402 006347 TYPE oMERRPC zTYPE PC. 
(1) 0051350 104412 5342 CNVRT ,ERTABO :SHOW IT 
(1) 005134 104402 006221 TYPE oMCSRX 
(1) 005140 104412 002704 CNVRT ,XCSR 
(1) 005144 104402 001357 TYPE -SCRLF GIVE A CR/LF 
(1) 005150 112737 177777 601247 MOVB #~1,SERFLG NO MORE HEADER UNLESS NO DATA TABLE. 
(1) 005156 005737 005166 TST ERRMSG 31S THERE AN ERROR MESSAGE? 
(1) 005162 001402 BEQ WTBS.FM :BR_IF NO. 
(1) 005164 104402 TYPE 3 TYPE 
(1) 005166 000000 ERRMSG: 0 ; ERROR MESSAGE 
(1) 005170 WIBS.FM: ; 
(1) 005170 005737 005200 TST DATAHD :DATA_HEADER? 
(1) 005174 001402 BEQ TYPDAT :BR_IF NO 
(1) 005176 104402 TYPE sTY 
(1) 005200 000000 DATAHD: 0 DATA HEADER 
(1) 005202 005737 005212 TYPDAT: TST DATABP DATA TABLE? 
(1) 005206 001402 BEQ RESREG BR IF NO. 
(1) 005210 104411 CONVRT 3 SHOW 
(1) 005212 000000 DATABP: 0 : DATA TABLE 
(1) OO ogté 10441 RESREG: RESOS sRESTORE PROC REGISTERS 
(1) 005216 122737 000001 001140 HALTS: CMPB #APTENV, SENV 21S APT RUNNING? 
(1) 005224 001007 BNE 15$ SKIP APT CALL IF NOT 
(1) 005226 113737 001260 005240 MOVB SITEMB,5$ :COPY ERROR NUMBER 
(1) 5234 004737 003472 JSR PC, SATY4 3CALL_APT SERVICE 
(1) 005240 000000 ; 5$: -WORD 0 ERROR NUMBER STUCK HERE 
(1) 005242 000777 10$: BR 10$ LOCK UP HERE 
(1) 005244 022737 002670 000042 15$: CMP #SENDAD ,a#42 ;CHECK TO SEE _IF IN ACT-11 MODE 
(1) 005252 001403 BEQ 208 21F SO, HANDLE ACCORDINGLY 
(1) 005254 005777 174024 TST aSWR HALT = rvur 
(1) 005260 100004 BPL EXITER BR IF NO HALT ON ERROR 
(1) 005262 016677 000002 174016 20$: MOV 2(SP),@DISPLAY ;SHOW ERROR PC IN DATA DISPLAY 
(1) 005270 000000 HALT HALT 
(1) 005272 005237 001256 EXITER: INC SERTTL [UPDATE ERROR COUNT 
(1) 005276 004737 005356 JSR PC, SERV.G sFIND OUT IF *G WAS TYPED 
41) 005302 032777 000400 173774 BIT #SW08 ,aSWR :GOTO TOP OF TEST? 
(1) 005310 001007 BNE :BR IF YES 
(1) 005312 032777 002000 173764 BIT #SW10,aSwWR GOTO NEXT TEST? 
(1) 005320 001407 BEQ BR_IF NO 
(1) 005322 0137357 001362 001252 MOV NEXT ,SLPADR 7SET FOR NEXT TEST 
(1) 005330 012706 001120 1$: MOV #STACK,SP : P 
(1) 005334 000177 173712 JMP @SLPADR GOTO SPECIFIED TEST 
(1) 005340 000002 2$: RTI RETURN 
(1) 005342 000001 ERTABO: 1 
(1) 005344 006 002 BYTE 6,2 
(1) 005346 404 SAVPC 
(1) 005350 000001 XTSTN: 1 
(1) 005352 002 002 BYTE 2,2 
(1) 005354 001246 $TSTNM 


— a, ee eee + 


i 


_CNDZ 
CND 


o 


Pp 


10=DEC=82 15:31 
356 017746 173730 
2 042716 000200 
366 122726 000007 


72 
74 032777 004000 
02 001365 


005404 
04 017737 he Te 


5 005077 173646 

5436 IA 173646 

005444 017746 173642 
042 


00 
5462 105777 173626 
375 


5 00 
005470 105237 005620 
005474 014677 173616 


005500 

005502 006177 173576 
005506 006177 173572 
005512 006177 173566 
005520 022627 000060 
0055 00273 

005526 026627 177776 
0055 003326 

005536 042746 177770 
Coeees oeere 173536 


5606 006 000 


56 
005614 036457 000057 
5620 


St ete eli Seti el ett ht tn et te et a ee ee 1 he et ca a ca ca a Lt, eat Net, Lat, hi ee, La, ca, at a, ce, a, eae, ea, ce, Lea ea, be, Lea, a, Le ae, a a ee eee Leet et ~ 
wi 
wi 
— 
ion 
at 
io 
Ww 
~“ 
Wi 
wt 


005622 012737 005766 


CY11_ 301046) 14=DEC-82 


173706 


005612 


000967 


173520 


051127 


000024 


10:09 PAGE 77-32 
AP 


T COMMUNICATIONS ROUTINE 


SERV.G: MOV asTkB,-(SP) OTHERWISE GET THE LAST CHARACTER TYPED 
BIC #BIT7, (SP) i STRIP PARITY (EIGHTH) BIT 
CMPBsé#?7, (SP) 1S 
BNE 6$ iF hor, *[GNORE INPUT 
BIT #4000, a$TkS x BUSY? 
BNE SERV.G ‘BR IF YES 
GETSWR= . Z2GPA 
MOV aswR,90$ ZSAVE (SWR 
1$: TYPE ,89$ TYPE SEADER FOR OLD SWITCH REGISTER 
CNVRT  -88$ :TYPE THE NUMBER ITSELF 
TYPE 91$ SAFTER HAVING CONVERTED IT TO ASCII 
CLRB 40 s«492$ ZCLEAR SWR CHANGE FLAG 
CLR aSWR SCLEAR THE SOFTWARE SWITCH REGISTER 
3$: TSTB © a$TKS [WAIT FOR 
BPL 3$ [CONTINUE WAITING FOR IT 
MOV asrke, +7 SP) :PUT THE CHARACTER ON THE STACK 
BIC 7.¢ SSTRIP PARITY BIT 
CMPB #15, Se [1S IT THE CARRIAGE RETURN CHAR? 
BEQ 4$ :1F SO, GO PRINT CRL 
2$: TSTB = aS TPS 1S THE OUTPUT BUFFER AVAILABLE 
BPL 2$ [IF NOT, WAIT FOR IT TO BE READY 
INCB =: 92 SINDICATE THAT THE SWR WAS CHANGED 
MOV -(SP) ,a$TPB :PLACE THE CHARACTER THERE (ECHO BACK) 
CLC :GET READY TO ROTATE 
ROL aSwWR ‘MOVE THE EXISTING Bits OVER 
ROL aswR :TO MAKE ROOM FOR THE INCOMING 
ROL asuR : THREE BITS FROM THIS CHARACTER 
CMP (SP) +, #60 t1S IT LOWER THAN 0? 
BLT :1F $0, GO ASK AGAIN 
CMP -2(SP) ,#67 ‘1S IT HIGHER THAN 7? 
BGT 1 :1F SO, GO ASK AGAI 
BIC #°C<7>,-(SP) ISOLATE INFORMATION BITS 
BIS (SP) +, aSw D THEM TO THE SWITCH REGISTER 
BR 3$ 60 CHECK FOR THE NEXT CHARACTER 
4$: TSTB 0-92 SHAS THE SWR BEEN CHANGED? 
BNE 5$ TIF YES GO TYPE CRLF 
MOV 90$,aSwR [IF NOT RESTORE SWR 
5$: TYPE  ,$CRLF STYPE A CARRIAGE RETURN AND LINE FEED 
6$: RTS PC SRETURN TO CALLING PROCEDURE 
89$:  .ASCIZ. <200>? (SWR)=/? 
EVEN 
88$: 1 
-BYTE 6,0 
90$ 
90$: eWORD 0O 
91$:  l[ASCIZ 2/=/? 
92$:  .BYTE 0 
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-SBTTL POWER DOWN AND UP ROUTINES 


PIII iii iii iii itil iii iiiiititiiitiiitiititititititi tit 
“POWER DOWN ROUTINE 
$PWRDN: MOV #SILLUP,a#PWRVEC ;;SET FOR FAST UP 


‘erect Se 
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CNDZC=A MACY11 30(1046) 14=DEC=82 10:09 PAGE 77-33 
CNDZCA.P11.—- 10=DEC-82 15:31 POWER DOWN AND UP ROUTINES SEQ 0047 
| (2) 005630 012737 000300 000026 MOV —-#PR6, AFPURVEC+2 ; ;PRIO:6 
| (&) 00563€ 010046 MOV RO,=(SP) :PUSH RO ON STACK 
| (4) 005640 010146 MOV R1.=(SP) : ;PUSH R1 ON STACK 
| (4) 005642 010246 MOV _——R2.=(SP) PUSH R2 ON STACK 
| (4) 005644 010346 MOV R3,=(SP) PUSH R3 ON STACK 
| (4) 005646 010446 MOV RG. =(SP) PUSH R& ON STACK 
(4) 005650 010546 MOV —s RS. =(SP) +:PUSh RS ON STACK 
| 4) 005652 017746 173426 MOV sR. =<SP) 3:PUSH @SWR ON STACK 
(2) 005656 010637 005772 MOV SP, SSAVR6 SAVE SP 
(2) 005662 012737 005674 000024 MOV § #SPWRUP, a#PWRVEC’::SET UP VECTOR 
(2) 005670 000000 HALT 
2) 005672 000776 BR "2 HANG UP 
(3) FREER AEEEEEI EEE EEEEREEAEEEEEEEEEEREREEREEREEEEREREEREREEERERE 
(2) {PouER UP ROUT INE 
(2) 005674 012737 005766 000024 $PWRUP: MOV  #SILLUP, QNPURVEC ::SET FOR FAST DOWN 
(2) 005702 013706 005772 MOV $SAVRO,§ T SP 
(2) 706 005037 005772 CLR SSAURG tIWAIT LOOP FOR THE TTY 
(2) 005712 005237 005772 1$: INC SSAVR6 S:WAIT FOR THE INC 
(2) 005716 001375 BNE 1$ T:0F WORD 
(4) 005720 012677 173360 MOV (SP)+,aSWR POP STACK INTO aSwR 
(4) 005724 012605 MOV (SP)+,R5 :zPOP STACK INTO RS 
(4) 005726 012604 — MOV (SP)+,R4 :zPOP STACK INTO R4 
(4) 005730 012603 MOV (SP)+,R3 :;POP STACK INTO R3 
(4) 005732 012602 MOV (SP)+-R2 ::POP STACK INTO R2 
(4) 005734 012601 (SP)+,R1 + STALK INTO R1 
(4) 005736 012600 MOV (SP)+-RO : STACK INTO RO 
(2) 005740 Oistas 005622 000024 MOV #SPWRDN a#PWRV c sSET UP THE POWER DOWN VECTOR 
(2) 005746 012737 000300 000026 MOV #PR6, a#PWRVEC+ Bato: :6 
(3) 005754 104402 TYPE REPORT THE POWER FAILURE 
(2) 005756 005774 SPWRMG: .WORD MPFAIL +: POWER FAIL we etaet PCINTER 
(2) 005760 012716 MOV (PC) +, (SP) szRESTART AT RESTA 
(2) 005762 002536 SPWRAD: .WORD RESTART > RESTART ADDRESS 
(2) 005764 000002 RTI 
(2) 005766 000000 SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
(3) 005770 000776 BR 2 53 ; BEFORE THE POWER DOWN WAS COMPLETE 
(2) 005772 000000 SSAVR6: 0 T THE SP HERE 
(5) 005774 050200 051127 043040 MPFAIL: .ASCIZ <200>/PWR FAILED. RESTART AT LAST TEST / 
(2) 037 200 047105 020104 MEPASS: .ASCIZ <200>/END PASS CHDZC=A / 
(3) 063 300 052522 047116 MR: “ASCIZ <200>/RUNNING 
(3) 006077 500 031790 043517 MERR2: “ASCIZ <500>/PROGRAM INbIcArEs NO DEVICES PRESENT./ 
(2) 006146 044600 051516 043125 MERR3: -ASCIZ <200>/INSUFFICIENT DATA!/ 
(3) 006172 046200 041517 020113 MLOCK: “ASCIZ <200>/LOCK ON SELECTED TEST/ 
(2) 006221 103 051123 020072 MCSRX: .ASCIZ > / 
(2) 006227 126 041508 020079 MVECK: “ASI? /VECT 
(3) 006235 120 051501 042523 MPASSX: :ASCIZ /PASSES: / 
(2) 006246 051105 047522 051522 MERRX: .ASCIZ /ERRORS: / 
(2) 006257 124 051505 020124 MTSTN: -ASCIZ TEST NO: / 
(2) 006271 052 000040 MASTEK: :ASCIZ /* 
(2) 006274 051600 052105 051440 MNEW:  _ASCIZ <200>/seT SWITCH REG TO DZV11°S DESIRED ACTIVE./ 
(2) 00634 120 035103 000040 MERRPC: :ASCIZ /PC: / 
(5) 006354 046600 050101 047440 XHEAD: “ASCI2 <200>/MAP OF DZV11 STATUS/<200> 
2) 006402 044600 046114 043505 MBADLN: .ASCIZ <200>/ILLEGAL ENTRY IN STAGGERED MODE/<200> 
r] ° 
(2) 006444 000002 KSTATQ: 2 
(2) 006446 006 003 BYTE 6,3 
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(2) 006450 001344 STMP1 

(2) 006452 002 BYTE 6,2 

(2) 006454 001346 STMP2 

as , -EVEN 


SEQ 0048 
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2) ;THIS ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN 
(2) ZESEXTERNAL LOOP BACK 

(2) ZISINTERNAL LOOP BACK 

(2) :S=STAGGERED LOOP BACK 

(2) 006456 017605 000000 »SETFLG:MOV = (SP) ,R5 :PICK UP ADDRESS OF TAG 

(2) 006462 042737 000040 007536 BIC #40, INBUF ZSTRIP LOWER CAS 

(2) 006470 122737 000105 007536 CMPB Os #"E, INBUF 31S IT EXTERNAL LOOP BACK ? 
(2) 006476 001005 BNE = 4 :NO 

(2) 006500 013715 006570 MOV =: 1, (25) ZYES STORE INFO 

(2) 0065C4 105037 001424 CLRB = MNTFLG :SET MAINT BIT =0 

(2) 006510 000422 BR $ :GET OUT 

(2) 006512 122737 000111 007536 4$:  CMPB = #" 1, INBUF 31S IT INTERNAL LOOP BACK ? 
(2) 006520 001006 BNE $ :NO 

(2) 006522 013715 006572 MOV. —-2$,(R5) ZYES STORE INFO 

(2) 006526 112737 000010 001424 MOVB  #MAINT,MNTFLG SET UP THE MAINTENANCE FLAG LOADER 
(2) 006534 000410 BR CET OU 

(2) 006536 122737 000123 007536 5$: CMPB = #*S, INBUF i1s IT STAGGERED LOOP BACK ? 
(2) 006544 001007 BNE :WH 

(2) 006546 013715 006574 MOV =. 3$, (RS) EVES. STORE INFO 

(2) 006552 105037 001424 CLRB = MINTFLG :ZERO BITS 

(2) 006556 062716 000002 7$: ADD —-#2, (SP) :POP AROUND 

(2) 006562 000002 RTI 

(2) 006564 104404 6$: _INSTER ;RETRY 

(2) 006566 000733 Be »SETFLG :DITIO 

(2) 006570 000200 1$: WORD 200 SEXTERNAL = E 

(2) 006572 000000 2$:  :WORD 0 ZINTERNAL = I 

(2) 006574 100000 3$: .WORD 100000 STAGGERED = S 

(2) ;COMPARE THE FIRST CHARACTER, IN THE TELETYPE INPUT 
(2) :BUFFER TO THE CHARACTES AND "'C'*. 

(2) ZIF THE CHARACTER IS ‘'E'’ CLEAR THE FLAG 

(2) ]F THE CHARACTER 18 “C"* SET THE FLAG 

(2) 006576 017605 000000 -PAWCH: MOV = @( SP) ,R5 

(2) 006602 142737 000040 007536 BICB #40, INBUF :SET FOR LOWER CASE INPUT 
(2) 006610 122737 000105 007536 CMPB Os #*E, INBUF 31S IT "@" 2 

(2) 006616 001002 BNE —'1$ 

(2) 006620 105015 CLRB (RS) :000 

(2) 006622 000406 BR 2$ sa 

(2) 006624 122737 000103 007536 1$: CMPB = #°C, INBUF 31S 17 "C2 

(2) 006632 001005 BNE $ 

(2) 006634 112715 177777 MOVB #1, (RS) ;3177 

(2) 006640 062715 000002 28: = ADD —s«#2, (SP) 

(2) 006644 000002 RTI 

(2) 006646 1044.4 3$:  INSTER ;RETRY 

(2) 006650 000752 BR -PAWCH 


aa 


<< —-—- — - ee + ee ee e+ 


} 
“enpzc=A MACY11 30(1046) 14=DEC=82 10:09 PAGE 77=36 
CNDZCA.PIT — 10=DEC=82 15:31 POWER DOWN AND UP ROUTINES SEQ 0050 


THIS ROUTINE CONVERTS LINE SPEED (LINESP) AND 
NUMBER 


~ 
m 
~ 


| (2) tL (SAVLIN) FOR DZVLPR, DZVTCR AND DZVCSR 
| (2) SREGISTER USAGE. 
| (2) 006652 013737 001374 007070 SET: MOV — SAVLIN,NUMLIN SAVE SAVLIN 
| (2) 006660 013700 001374 MOV SAVLIN,RO :COPY THE LINE NUMBER FOR LOOP CONTROL 
(3) 0u6554 005037 007072 CLR NUMTCR :SET A DEFAULT OF LINE 0 OR NO LINES 
(2) 006670 012702 000001 MOV #1,R2 :SET A BIT POINTER TO THE FIRST LINE 
(2) 006674 005300 XTCR1: DEC RO SREDUCE THE INDICATOR.IS IT MINUS YET? 
(2) 006676 100402 BMI SETI TIF SO, R2 POINTS TO THE RIGHT LINE 
(2) 006700 006302 ASL R2 SIF NOT, MOVE THE POINTER TO THE NEXT LINE 
(2) 006702 000774 BR XTCR1 [GO SEE IF THIS LINE IS THE ONE 
(2) 006704 012701 006746 SET1: MOV #TABLE?, RI 
(2) 006710 010237 007072 MOV R2,NUMTC :COPY THE CORRECT BIT POINTER 
(2) 006714 022137 007064 1$: CMP tRid + LINESP 
(2) 006720 001407 BEQ 
(2) 005721 TST (R1)+ :IS IT THE END OF TABLE? 
(2) 006724 001373 BNE 1$ 
(2) 006726 104402 007174 TYPE  ,MINVAL TINVALID BAUD RATE.BEGIN AGAIN 
(2) 006732 012705 002374 MOV #BAUD RS : JUMP TO BAUD THRU RS 
(2) 006736 000402 BR 38 
(2) 006740 011137 007066 2$: MOV (R1), SPEED :SET UP BAUD RATE 
(2) 006744 000205 3$: RTS RS 
(33 
(2) THE FOLLOWING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR) 
(2) 006746 000062 TABLE2: .WORD 50. 350 BAU 
(2) 006750 010070 “WORD 10070 
(2) 006752 000113 “WORD 75, ?75 BAUD 
(2) 006754 010470 “WORD 10470 : 
(2) 006756 000156 “WORD 110. '110 BAUD 
(2) 006760 011070 “WORD 11070 :TWO STOP BITS 
(2) 006762 000207 “WORD 135. 1134.5 BAUD 
(2) 006764 011470 “WORD. 11470 :TWO STOP BITS 
(2) 006766 000226 “wORD 150. £150 BAUD 
(2) 006770 012070 “WORD 12070 :TWO STOP BITS 
(2) 006772 000454 “WORD 300. 300 BAUD 
(2) 006774 012430 “WORD 12430 [ONE STOP BIT 
(2) 006776 001130 “WORD 600. 600 BAUD 
(2) 007000 013030 “WORD 13030 [ONE STOP BIT 
(2) 007002 002260 “WORD 1200. 1200 BAUD 
(2) 007004 013430 "WORD 13430 *ONE STOP BIT 
(2) 007006 003410 “WORD 1800. 1800 BAUD 
(2) 007010 014030 “WORD 14030 [ONE STOP BIT 
(2) 007012 003720 “WORD 2000. 2000 BAUD 
(2) 007014 014430 “WORD 14430 [ONE STOP BIT 
(2) 007016 004540 “WORD 400. i240 BAUD 
(2) 007020 015030 “WORD 15030 E STOP BIT 
(2) 007022 007020 “WORD 3600. 3600 BAUD 
(2) 007024 015430 “WORD 15430 [ONE STOP BIT 
(2) 007026 011300 “WORD 4800. :4800 BAUD 
(2) 007030 016030 “WORD 16030 [ONE STOP BIT 
(2) 007032 016040 “WORD 7200. 7200 BAUD 
(2) 007034 016430 "WORD 16430 ‘ONE STOP. BIT 
(2) 007036 022600 “WORD 9600. 9600 B 
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(2) 007040 017030 -WORD 17030 ; 
‘s) 007042 177777 000000 -WORD -1,0 ; TABLE TERMINATOR 
(2) 
(2) 007046 000000 WCHFLG:0 sECHO OR CABLE FLAG 
(2) 007050 000000 STFLG: 0 sPROGRAM START FLAG 
(2) 007052 000000 LOCKUP: 0 sTIMEOUT FLAG 
(2) 0070 000000 LAST 0 zLAST ERROR PC 
(2) 007056 0000 TDATA: 0O 
(2) 0000 RDATA: 0 
(2) 007062 900000 BYTCNT: 0 
(2) 007064 000156 LINESP: 110. :DEFAULT BAUD RATE 
(2) 011070 SPEED: 11070 ;DEFAULT 110 tit 8 BITS/CHAR, 
(2) 3sFDX, 2 SUP B 
‘$3 007070 000000 NUMLIN: 0 
(2) 007072 000001 NUMTCR: 1 ;DEFAULT VALUE,TCR BIT 0 
(2) 007074 000200 PRIO: 200 sDEFAULT DEVICE PRIORITY 
(2) sMASK OUT INTERRUPTS 
(2) 007076 000000 RECDAT: 0 
(2) 007100 000000 TBUF: 0 
(2) 007102 053200 041505 047524 MVECTO: .ASCIZ <200>/VECTOR ADDRESS=- / 
(2) 007124 041600 047117 051124 MREGAD: .ASCIZ are ee REGISTER ADDRESS= / 
(2) 007160 050200 051501 020123 MPASS: .ASCIZ <200>/PASS DON 
(2) 007174 044600 053116 046101 MINVAL: .ASCIZ <3009/ INVALID. BAUD RATE = / 
(2) 007222 0462 047111 035105 MLINE: .ASCIZ <200>/LINE: 
(2) 007232 041200 052501 020104 MSPEED: .ASCIZ £500>/BAUD RATE ~ / 
ts) 007250 052200 050131 020105 MCHAR: .ASCIZ Ht nates CHAR. ON DZV11 TERMINAL / 
(2) 007311 044127 11 MWHICH: .ASCIZ <200>/WHICH TEST ? ECHO OR CABLE (E OR C) / 
(2) 007357 042524 22 MTERM: .ASCIZ <200>/TERMINAL ECH HO TEST / 
(2) 007404 041600 041101 042514 MCABLE: .ASCIZ eB77oclocS7 TEST 
(2) 007421 177415 005377 MQUICK: .ASCII <377><15>< 71S<87?ocl2><377><377> 
(2) 007430 044124 020105 052521 eASCII /THE QUICK BROWN FOX D OVER THE LAZY DOGS BACK 0123456789/ 
ts} 007525 177415 005377 sven ASCII Ae er ret erp eit test RE TEN 
(2) 
<; sBUFFERS FOR INPUT-OUTPUT 
(2) 007536 000000 INBUF: 0 
(2) 007600 -=.+40 
(2) 007600 000000 TEMP: 0O 
(2) 007642 -=.+40 
(2) 007642 000000 MDATA: 0 
ts) 007704 ee +40 


a ee + + + + ee ee ee 
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002046 


001174 
002019 


002012 
002014 
002020 
002016 
002022 
002024 
002026 


002030 
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002032 
002036 
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AND 


62 


MOV 
ADD 


MOV 
ADD 
MOV 


> #2, 
> RO,D2VilV 


N 4 
uP “ROUTINES 


sPLACE THE BASE VECTOR ADDRESS IN RO 
#e, CALCULATE THE RECEIVER INTERRUPT STATUS ADDR. 
RO,DZVRIS sSTORE IT HERE 
i sCALCULATE THE TRANSMITTER INTERRUPT VECTOR 
sSTORE IT HERE 
CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS 
sSTORE IT HERE 


THIS UTILITY SETS UP CSR°S,SETS UP VECTORS. 
VLEV: MOY OZVRIV,RO :P 


M2 ,R 
RO,0Z"'"'S 


; THIS SEGMENT SETS UP FUINTERS FOR THE GIVEN DZV11. SBASE IS THE BASE ADDRESS 


TOF THE DEVI 


SBASE RO COPY THE ADDRESS BEING LOADED 
RO,DZVCSR 3 XXX0 
~* anata 3XXX1 
RO ,OZ VRBUF 3XXX2 
+ aati 2XXX2 
RO, HOZVRBUF 3 XXX3 
RO,HEZVLPR 3 XXX3 
+ aaa 3 XXX4 
+ lata 3 XXX5 
RO,DZVMSR 3 XXX6 
apomevion 3 XXX6 
RO,HDZVMSR 3XXX7 
ap eaenten 3XXX7 


SEQ 0052 


p> rr 
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| eepzcea MACY11 30(1046) 14=DEC=-82 10:09 PAGE 77-39 
CNDZCA.P11 10-DEC-82 15:31 DZV11 DEVICE DIAGNOSTICS. COPYRIGHT 1982 DIGITAL EQUIP. CORP. SEQ 0053 
7827 
7828 peeteekeeee ECHO TEST RREAREREER 
7829 *THIS TEST WILL ACCEPT 1 CHARACTER AT A TIME 
7830 :*(IN INTERRUPT MODE) AND TRANSMIT THAT SAME ¢ tebe 
ee + *ONE LINE AT A TIME, ANY LINE 0 THRU 7 (OCTAL) 
7833 010044 104413 TST1: — CLR sCLEAR DZV11 
7834 010046 012737 000001 001246 #1,STSTNM 
7835 010054 013777 007072 171742 mov NUMTCR, @DZVTICR ;SET TCR BIT 
7836 010062 013737 007070 001370 MOV NUMLIN,PAR 3SET PARAMETERS 
7837 010070 053737 007066 001370 BIS SPEED,PAR 3SET BAUD RATE 
7838 010076 013777 001370 171714 MOV PAR ,@DZVLPR ;LOAD PARAM. 
7839 010104 012777 000040 171676 MOV #MSENAB,@DZVCSR ;SET SCANN ENABLE 
7840 010112 005004 CLR R4 
7841 010114 012705 007421 4$: MOV #MQUICK,RS 3SET MESSAGE BUFFER 
7842 010120 005777 171664 3$: TST aDZVCSR sTRDY? 
7843 010124 100404 BMI 2$ 3BR IF YES 
7844 010126 104414 DELAY sWAIT 
7845 010130 005304 DEC R4 : 
7846 010132 001372 BNE 3$ 3 
7847 010134 104003 ERROR 3 NO TRDY SET! WHY? 
7848 010136 005004 2$: CLR R4 TRESET COUNTER TO 0 
7849 010140 112577 171670 MOVB (R5)+,aDZVTDR :LOAD CHAR 
7850 010144 001365 BNE 3$ 
7851 010146 004737 005356 JSR PC gp Re 1<4G>? 
7852 010152 122777 000377 171124 CMPB #377,a :SWR SET TO 377? 
7853 010160 001755 BEQ 4$ TIF YES LOOP ON QUICK MESSAGE 
7854 010162 012737 002542 001362 MOV #SEOP ,NEXT 
7855 010170 012777 010244 171642 MOV #INTSVC, @DZVRIV ;SET UP INTERRUPT SERVICE 
7856 010176 012777 000200 171636 MOV #MASK ,@DZVR IS AND LEVEL 
7857 010204 106427 000000 MTPS #CLEAR sALLOW INTERRUPTS 
7858 010210 012777 000140 171572 MOV ARIE! MSENAB, aDZVCSR ESF RECEIVER INTERRUPT ENABLE 
7859 010216 104402 007250 TYPE »MCHAR TY PE ' Y CHARACTER’ 
7 010222 105777 171062 1$: TSTB asTtks Z IF SOMBODY HITS A KEY= GET NEW LINE # 
7861 010226 100375 BPL 1$ tL HERE 
7862 010230 106427 000200 MTPS #MASK :MASK FURTHER INTERRUPTS 
7863 010234 004737 005356 JSR PC,SERV.G sMAKE SURE IT WASN'T <*G> 
7864 010240 000137 002412 JMP LINEX 3 
rs 
7867 3THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE 
7868 010244 105777 171540 INTSVC: TSTB aDZVCSR sTEST REC. FLAG 
7869 010250 100401 BMI ‘ 
7870 010252 104004 ERROR 4 sERROR = INTERRUPT NOT CAUSED BY FLAG 
7871 010254 017737 171534 007076 MOV @DZVRBUF ,RECDAT 
7872 010262 100401 BMI +4 
7873 010264 104023 ERROR 23 sNON= VALID CHARACTER 
7874 010266 032737 020000 007076 BIT #B1T13,RECDAT + CHECK FOR FRAMING ERROR 
7875 010274 001401 BEQ +4 :BR IF NO ERROR 
7876 010276 104025 ERROR 25 TEITHER SOMBODY HIT THE 
7877 : BREAK KEY** OR YOU HAVE AN ERROR! 
7878 010300 113737 007076 007100 MOVB RECDAT, TBUF sMOVE CHARACTER TO OUTPUT AREA 
7879 010306 113737 007076 007536 MOVB RECDAT, INBUF ;MOVE CHARACTER TO CHECK FOR “C 
7880 010314 042737 177600 007536 BIC #*C<177>, INBUF :STRIP JUNK PL 
7881 010322 042737 176377 007076 BIC oles RECDAT + SAVE ONLY LINE NUMBER 
7882 010330 000337 007076 SWAB RECDA 
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010334 023737 001374 007076 CMP SAVLIN,RECDAT ;DOES THE LINE # COMPARE? 
| reer 010342 001407 BEQ 
| 7885 010344 013737 007076 001374 MOV RECDAT,SAVLIN ADJUST LINE NO. FOR ERROR 
| 7886 010352 104015 ERROR 15 :*WRONG LINE NUMBER 
7887 010354 013737 007070 001374 MOV NUMLIN,SAVLIN :CORRECT LINE NO. INDICATOR 
7888 010362 123727 007536 000003 2$: CMPB —SsINBUF , #3 31S IT 
7889 010370 001004 BNE 1$ NO 
7890 010372 104413 DEVICE.CLR 
7891 010374 012716 002542 MOV #SEOP, (SP) ZCRUNCH STACK 
7892 010400 000002 T 
7893 010402 005777 171402 1$: TST aDZVCSR TROY SET 
7894 010406 100375 BPL 1$ :I1F NOT THEN WAIT 
7895 010410 113777 007100 171416 MOVB TBUF,@DZVTDR :TRANSMIT THE CHARACTER 
7896 010416 000002 RTI 
7897 
7898 
7899 petkekkeeet CABLE TEST RERKEKEEKRK 
7900 S*THIS TEST TRANSMITS A BINARY COUNT PATTERN 
7901 =*VIA INTERRUPT MODE TO THE R 
ee 7%... THE LINE UNDER TEST MUST BE. TERMINATED WITH THE TEST CONNECTOR 
7904 010420 106427 000200 TST2: MTPS ;DISABLE INTERRUPTS 
7905 010424 012737 000002 001246 MOV 1 StSTNM 
010432 012737 002542 001362 MOV #SEOP NEXT 
7907 010440 104413 DEVICE.CLR 
7908 :*TEST TO VERIFY THAT SETTING DTR FOR A GIVEN LINE 
7909 :*WILL BR ING UP "CO" A AND "RING FOR THE SAME LINE 
7910 Z*JUMPERS W1,W2,W3 AND W4 MUST BE INSTALLED ON THE 
7911 **INTERFACE MODULE OTHERWISE AN ERROR REPORT WILL RESULT. 
7912 010442 012737 010450 001364 MOV #1$,LOCK LOOP 
7913 010450 113777 007072 171350 1$: MOVB §§-NUMTCR, @HDZVTCR ‘SET DTR 
7914 010456 005005 CLR R5 : 
7915 010460 153705 007072 BISB  NUMTCR,RS ZBUILD EXPECTED 
7916 010464 000305 SWAB sé :PUT IN HIGH BYTE 
7917 010466 153705 007072 BISB §NUMTCR,RS 
7918 010472 104414 DELAY tWAIT FOR CABLE DELAY 
7919 010474 017704 171330 MOV @DZVMSR,R4 [READY MODEM BITS 
7920 010500 020504 CMP R5,R4 ZARE THEY OK? 
7921 010502 001401 BEQ 2$ F YES 
7922 010504 104022 ERROR 22 [1S THE TEST CONNECTOR ON? 
7923 [HAS RIGHT LINE BEEN SELECTED? 
7924 :1F SO- YOU HAVE A PROBLEM 
7925 :MODEM BITS NOT RIGHT 
7926 010506 104401 2$: SCOP1 
7927 010510 104413 3$: DEVICE. CLR OMIT pzv11 
7928 010512 005037 001364 CLR LOCK SCLEAR SCOP1 LOCK ADDRESS 
7929 010516 013737 007066 001370 MOV SPEED, PAR SET ul NE SP EED 
7930 010524 053737 007070 001370 BIS NUMLIN,PAR [SELECT LINE # 
7931 010532 052737 010000 001370 BIS #RCVON,PAR s ENABLE THe RECEIVER FOR THIS LINE 
7932 010540 013777 001370 171252 MOV PAK, @DZVLPR [SET THE PARAMETERS AND TURN ON RECEIVER 
7933 010546 012777 010670 171264 MOV MINTREC,@DZVRIV :SET UP INTR SERVICE 
7934 010554 012777 000200 171260 MOV WMASK,@DZVRIS SET UP LEVEL 
7935 010562 012777 011060 171254 MOV MINTRAN,aDZVTIV :SET Up TNTR SERVICE 
7936 010570 012777 000200 171250 MOV #MASK,aDZVTIS SET U 
7937 010576 012777 040140 171204 MOV #TIE RIE MSENAB, aDZVCSR >SET TRANSMITTER INTERRUPT ENABLE 
7938 010604 105037 001425 CLRB —dDONFLG INIT INTERRUPT DONE INDICATO 
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007072 
000000 
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05356 
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007052 
171110 


171104 


040000 


020000 


010000 


007076 
177400 
177400 


176377 
007076 
001374 
007076 


007070 
000377 


001425 


170724 


171202 


007076 


007076 


007076 


007076 


007076 
007076 
001374 
001374 


SPIN: 


1$: 


QUITS: 


INTREC: 


4$: 


1$: 
2$: 
INTRAN: 


10:09 PAGE 77-41 
DZV11 DEVICE DIAGNOSTICS. 


CLR R1 

CLR R2 

MOV NUMTCR,@DZVTCR :SET U 
MTPS  4#CLEAR 

TST KS 

BPL 

JSR PC,SERV.G 
JMP INEX 

TSTB = DONFLG 

BNE QUITS 

INC LOCKUP 

BNE IN 

ERROR 11 

DEVICE.CLR 

JMP SEOP 

CLR LOCKUP 

TSTB  aDZVCSR 

BMI +4 

ERROR 

MOV 

BMI 

ERROR 23 

BIT #B1T14,RECDAT 
BEQ +4 

ERROR 24 

BIT #B1T13,RECDAT 
BEQ +4 

ERROR 25 

BIT #B1T12,RECDAT 
BEQ +4 

ERROR 

MOVBsR1, 5 

MOVB  RECDA 

BIC Beco aT eR RG 
BIC #*C<377>._R5 
CMP R5S,R4 

BEQ +4 

ERROR 

BIC 

SWAB E 

CMP SAVLIN, RECDAT 
BEQ 4$ 

MOV RECDAT, SAVLIN 
ERROR 

MOV NUMLIN, SAVLIN 
CMPBeaR1,#377 

BNE 

INCB —DONFLG 

BR 2$ 

INCB- OR 

RTI 

TST @DZVCSR ; TEST 
BMI #4 


dD 5 


COPYRIGHT 1982 DIGITAL EQUIP. CORP. 


3RX DATA POINTER= SET TO 0 
31x ey POINTER= SET TO 0 


TCR BIT 
ALLOW INTERRUPTS 


;YOU RETURN HERE AFTER EVERY RECEIVER INTERRUPT 
B asTk :1F SOMEBODY HITS A KEY= GET A NEW LINE # 


BRANCH IF NO KEY HIT 
AKE Se IT WASN'T <*G> 


ARE ALL RECEIVER INTER. DONE 
:IF YES GET OUT OF TIMING LOOP 
sINC TIMEOUT F yee 

NOT 0 RETURN 


SEQ 0055 


SPINNING 
s SRECEIVER FAILED TO INTERRUPT CHECK CABLE/TERMINATOR 


;CALL_FOR END OF PASS 
“CLEAR TIMEOUT FLAG 
TEST REC DONE 


ZYES 
Z*FALSE INTERRUPT 


4 : 
a ee zSAVE WORD 
+ 


: *NON pe th » sweat 
RO OVERR 


*YES 
FRAMING ERROR ? 
NO 
2*YES 
PARITY ERROR ? 
iNO 

*YES 
SET EXPECTED 

FOUND 


S CLEAR HIGH BYTE 
CLEAR HIGH BYTE 


:DATA ERROR 


5 
the a ataall 3SAVE ONLY LINE NUMBER 


oes THE LINE # COMPARE ? y 
SADJUST LINE 60. FOR ERROR 

s*WRONG LINE # 

S READJUST LINE NO. 

sLAST CHARACTER ? 

INDICATE RECEIVER INTERRUPTS DONE 


UPDATE EXPECTED DATA 


TRANSMIT FLAG 


pa + ee 


—E 5 
\CNDZC=A MACY11 30(1046) 14=DEC=82 10:09. PAGE 77-42 
'CNDZCA.P11—-10=DEC~82 15:31 DZV11 DEVICE DIAGNOSTICS. | COPYRIGHT 1982 DIGITAL EQUIP. CORP. SEQ 0056 
7995 011066 104003 ERROR 3 *FALSE INTERRUPT 
7996 011070 110277 170740 MOVB 2, aDZVTOR ‘TRANSMIT A CHARACTER 
7997 011074 105202 INCB—R2 ‘UPDATE TX DATA 
7998 011076 001003 BNE 1$ “BIT PATTERN DONE? 
7999 011100 042777 040000 170702 BIC -#TIE,@DZVCSR IF YES THEN CLEAR TIE 
8000 011106 000002 1$: RTI ‘IF NOT THEN RETURN 


| 


co oe — — a —_ 


, ® 
/CNDZC“A_MACY11 30(1046) 14=DEC-82 10:09 PAGE 7 


8 
‘CNDZCA.P11—-:10=DEC-82 15:31 D2V11 DEVICE DIAGNOSTICS. | COPYRIGHT 1982 DIGITAL EQUIP. CORP. SEQ 0057 
8002 ERROR TABLE 
| 8003 011110 000000 LERRTAB: 0 ERROR 0 
8004 011112 000000 0 
8005 011114 000000 0 
| BOO? 011116 011336 EM1 SERROR 
| 8008 011120 012666 DH1 
| 8009 011122 013066 OTT 
| ger 011124 011411 EM2 ERROR 2 
8012 011126 012712 DH? 
8015 011130 013100 DT? 
8015 011132 011437 EM3 ERROR 3 
8016 011134 012745 DH3 
BOI? 011136 013116 DT3 
8019 011140 011476 EMG ERROR 4 
8020 0111-2 012745 DH3 
8021 OIT144 013116 DT3 
8023 011146 011525 EMS ERROR 5 
8024 011150 012757 DHS 
g02s 011152 013124 DT4 
8027 011154 011554 EM6 ERROR 6 
8028 011156 012757 DHS 
8029 011160 01124 DT4 
8031 011162 011613 EM? ERROR 7 
8032 011164 012745 DH3 
8033 011166 013116 DT3 
8035 011170 011654 EMB ERROR 10 
8036 011172 012745 DH3 
8037 011174 013116 OT3 
8039 011176 011716 EM9 ERROR 11 
8040 011200 012745 DH3 
8041 011202 013116 DT3 
8043 011204 011754 EM10 —; ERROR 12 
8044 011206 012745 DH3 
8045 011210 013116 DT3 
8047 011212 012013 EM13. ERROR 13 
8048 011214 012745 DH3 
8049 011216 013116 DT3 
8051 011220 012044 EM14 ERROR 14 
B052 011222 012745 DH3 
8055 011224 013116 DT3 
8055 011226 012076 EM15 —_ ; ERROR 15 
8056 011230 000000 0 
8057 011232 000000 0 


G 5 
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CNDZCA.P11 10=DEC=82 15:31 DZV11 DEVICE DIAGNOSTICS. COPYRIGHT 1982 DIGITAL EQUIP. CORP. 
/  g058 
| B059 011234 012140 EM16 
| 8060 011236 012745 DH3 
8061 011240 013116 DT3 
1 
| 8063 011242 012212 EM17 —s ; ERROR 17 
8064 011244 012745 DH3 
8065 011246 013116 DT3 
| 8067 011250 012250 EM20 
| 8068 011252 012745 DH3 
8069 011254 013116 DT3 
| 8071 011256 012311 EM21 sERROR 21 
8072 011260 013006 DHS 
8075 011262 013142 DTS 
8075 011264 012341 EM22 sERROR 22 
8076 011266 012757 DH4 
8077 011270 013124 DT4 
8079 011272 012403 EM23 sERROR 23 
8080 011274 012745 DH3 
8081 011276 013116 DT3 
8083 011300 012433 EM24 
8084 011302 012745 DH3 
oo? 011304 013116 oT3 
8087 011306 012461 EM25 
8088 011310 012745 DH3 
pied 011312 013116 0T3 
8091 011314 012511 EM26 
8092 011316 012745 DH3 
8093 011320 013116 DT3 
8095 011322 012540 EM27 
809% 011324 012745 DH3 
pad 011326 013116 DT3 
8099 011330 012606 EM30 
8100 011332 012745 DH3 
8101 011334 013116 DT3 


SEQ 0058 


H 5 
/CNDZC*A_MACY11 30(1046) 14=DEC=82 10:09 PAGE 79 
CNDZCA.P11 10=DEC-82 15:31 DZV11 DEVICE DIAGNOSTICS. COPYRIGHT 1982 DIGITAL EQUIP. CORP. SEQ 0059 


8103 ZERROR MESSAGES 
| B10? 011336 047200 020117 052502 EM1:  :ASCIZ <200>/NO BUS REPLY RESPONSE FROM DZV11 REGISTER/ 
8108 011411 200 peesge 04450 EM2: eASCIZ <202>7REGISTER R/W FAILURE? 
- 8109 011437 300 051124 047101 EM3: § :ASCIZ <200>/TRANSMIT READY (TRDY) NOT SET/ 
| 8110 011476 051200 041505 044505 EMG:  .ASCIZ <200>/RECEIVER DONE 
| 8111 011525 200 040504 040524 EMS: | .ASCIZ <200>/DATA COMPARISON 
8112 011554 042200 053132 030461 EM6:  .ASCIZ <200>/DZV11 *RECEIVER BUFFER® ERROR/ 
| 8113 011613 200 051124 047101 EM7:  .ASCIZ <200>/TRANSMITTER FAILED TO INTERRUPT/ 
8114 011654 052600 042516 050130 EM8:  .ASCIZ <200>/UNEXPECTED TRANSMITTER INTERRUPT/ 
8115 011716 051200 041505 044505 EM9:  <ASCIZ <200>/RECEIVER FAILED TO INTERRUPT/ 
8116 011754 052600 042516 050130 EM10:  .ASCIZ <200>/UNEXPECTED RECEIVER INTERRUPT/ 
8117 012013 200 044523 047514 EM13: eASCIZ <200>/SILO ALARM SET 
| 8118 012064 051600 046111 020117 EM14: -ASCIZ <200>/SILO ALARM FAILED 
| 8119 012076 040600 052103 047511 EM15: <:ASCIZ <200>/ACTION DETECTED ON INVALID LINE./ 
' 8120 012140 051200 040505 044504 EM16:  .ASCIZ <200>/READING DZVRBUF DID NOT CLEAR SILO ALARM/ 
8121 012212 042200 052101 020101 EM17:  .ASCIZ <200>/DATA VALID SHOULD NOT BE SET/ 
8122 012250 051200 041505 044505 EM20:  .ASCIZ <200>/RECEIVER DONE SHOULD NOT BE SET/ 
8123 012311 200 042522 040514 EM21:  .ASCIZ <200>/RELATIVE TIMING ERROR. / 
| 8124 012361 200 047515 042504 EM22:  .ASCIZ <200>/MODEM SIGNAL ERROR ON CABLE TEST/ 
8125 012403 200 040504 040524 EM23:  .ASCIZ <200>/DATA VALID IS NOT SET!/ 
8126 012433 200 040504 040524 EM24:  <ASCIZ <200>/DATA OVERR T!/ 
8127 012461 200 051106 501 EM25: eASCIZ <200>/FRAMING ERROR OCCURRED/ 
8128 012511 200 040520 044522 EM26: eASCIZ <200>/PARITY ERROR OCCURRED/ 
8129 012540 051600 046111 020117 EM27: .ASCIZ <200>/SILO ALARM FAILED TO CAUSE INTERRUPT/ 
8130 012606 046200 047111 020105 EM30: .ASCIZ <200>/LINE DID NOT RECEIVE FULL BINARY COUNT PATTERN/ 
8132 012666 052200 040522 020120 oH1 .ASCIZ <200>/TRAP PC DZV11 REG/ 
8133 012712 042600 050130 041505 DH “ASCIZ <200>/EXPECTED FOUND REGISTER/ 
8134 012745 200 044514 042516 DH "ASCIZ <200>/LINE NO. 
8135 012757 200 054105 042520 DH4:  .ASCIZ <200>/EXPECTED FOUND LINE/ 
8136 013006 052200 020130 044514 DHS: .ASCIZ <200>/TX LINE PREVIOUS TIME ACTUAL TIME PARAMETER/ 
8138 013066 EVEN 
8142 :DATA TABLES FOR ERROR MESSAGES 
8143 013066 000002 ett: 2 
8144 013070 006 003 .BYTE 6,3 
8145 013072 001330 $REG1 
8146 013074 006 001 .BYTE 6,1 
B147 013076 001326 $REGO 
8149 013100 000003 p12: 3 
8150 013102 004 “BYTE 6,4 
8151 013104 001340 $REG5S 
8152 013106 001 .BYTE 6,1 
8153 013110 001336 $REG4 
8154 013112 006 001 .BYTE 6,1 
8135 013114 001326 $REGO 
8157 013116 000001 DT3: 
8158 013120 003 001 .BYTE 3,1 
8159 013122 001374 SAVLIN 
8161 013124 000003 DT4: 3 
8162 013126 006 004 “BYTE 6,4 
8163 013130 001340 $REGS 
8164 013132 006 001 .BYTE 6,1 ° 


Ie is aaa ae 15 
,CNDZC=A_MACY11 30(1046) 14=DEC-82 10:09 PAGE 79-1 


‘ewOZCA.PIT 10-DEC-82 15:31 D2V11 DEVICE DIAGNOSTICS. | COPYRIGHT 1982 DIGITAL EQUIP. CORP. SEQ 0060 
| 8165 013134 001336 $REGS 
| 8166 013136 003 001 -BYTE 3,1 
8167 013140 001374 SAVLIN 
8169 013142 000004 evs: & 
8170 013144 003 005 ‘BYTE 3,5 
8171 013146 001374 SAVLIN 
8172 013150 011 ‘BYTE 6,9. 
8173 013152 001340 $REGS ; 
8174 013154 006 007 <BYTE 6,7 
8175 013156 001344 $TMP1 
8176 013160 006 001 “BYTE 6,1 
8177 013162 001402 REGIST 
a8 ;TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES 
8180 : 
8181 013164 002450 DLYTBL: 2450 sTIME FOR 50 BAUD 
8182 013166 001560 1560 “TIME FOR 75 BAUD 
8183 013170 001120 1120 ‘TIME FOR 110 BAUD 
8184 013172 000750 750 :TIME FOR 134 BAUD 
8185 013174 000660 660 [TIME FOR 150 BAUD 
8186 013176 000330 330 ‘TIME FOR 300 BAUD 
8187 013200 000150 150 [TIME FOR 600 BAUD 
8188 013202 000060 60 ‘TIME FOR 1200 BAUD 
8189 013204 000040 40 [TIME FOR 1800 BAUD 
8190 013206 000030 30 :TIME FOR 2000 BAUD 
8191 013210 000020 20 TIME FOR 2400 BAUD 
8192 013212 000010 10 [TIME FOR 3600 BAUD 
819 013214 00000 1 :TIME FOR 4800 BAUD 
8194 013216 000001 1 [TIME FOR 7200 BAUD 
8195 013220 000001 1 “TIME FOR 9600 BAUD 
8196 013222 000001 1 ‘TIME OF DELAY FOR 19200 BAUD 
8198 DELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE 
8199 sFOR ALL TESTS TO FUNCTION CORRECTLY ON A LSI11. 
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CNDZC=A_MACY11 30(104 


) 6) 14=DEC-82 10:09 PAGE 80 
/CNDZCA.P11 = 10=DEC=82 15:31 DZV11 DEVICE DIAGNOSTICS. | COPYRIGHT 1982 DIGITAL EQUIP. CORP. SEQ 0061 
| 8277 : INIT $BASE AND $VECT1 AND TWEAK THE "SGETPAR'’ CALLING 
8278 + SEQUENCE TO ACCEPT THE VALID FALCON RANGE. 
| 8280 013224 023727 001174 160010 Seasons CMP SBASE WABASE =; IS S$BASE VIRGIN 2? ZiGPA 
| 8281 013232 001003 BNE 1$ + SKIP NEXT IF NOT 7:GPA 
| 8282 013234 012737 174040 001174 MOV #174040,$BASE =; YES SET. ENGINEERING DEFAULT ::GPA 
| 8283 013242 023727 001170 000000 18: CMP SVECT1,#AVECT1 : IS $VECT1 VIRGIN 3GPA 
| 8284 013250 001003 BNE 2$ + SKIP AEKT IF NOT ::GPA 
8285 013252 012737 000370 001170 MOV #370, gSyecrt : YES, SET ENGINEERING DEFAULT ::GPA 
8286 013260 012737 013324 002326 2S: MOV #3$,GETCSR#2 §: SUBSTITUE CSR TEXT... t:GPA 
8287 013266 012737 174000 002332 MOV Et SE TeSR+6 + :GPA 
8288 013274 012737 177770 002334 MOV #177770, GETCSR+10 ;...AND VALID RANGE. 7:GPA 
8289 013302 012737 013366 002344 MOV #4$, GETVEC#2 : SUBSTITUTE VECTOR TEXT... *:GPA 
8290 013310 005037 002350 CLR GETVEC+ 7:GPA 
8291 013314 012737 000370 002352 MOV #370 GETVEC#10 t.«-AND VALID RANGE. T:GPA 
| 8292 013322 000207 RETURN + RETURN TO CALLER. [GPA 
8294 013324 030600 052123 041440 38: .ASCIZ <200>"1ST CSR ADDRESS (174000:177770) ° :GPA 
013332 051123 040440 042104 
013340 042522 051523 024040 
013346 033461 030064 030060 
013354 030472 033467 033467 
013362 024460 000040 
8295 013366 030600 052123 053040 4$: .ASCIZ <200>"1ST VECTOR ADDRESS (000:370) ' ::GPA 
013374 041505 047524 020122 
013402 042101 051104 051505 
013410 020123 030050 030060 
013416 031472 030067 020051 
013424 020040 000040 
334) EVEN 33GPA 
8298 sSFREE= <1000-.>/2 : FREE WORDS LEFT. z:GPA 
8299 3 IF LT SFREE : GPA 
8300 : “ERROR : VECTOR OVERLAY EXCEEDED +:GPA 
8301 ; -ENDC 7:GPA 
8302 : 
8303 3 -=$SVPC 72GPA 
8304 013430 CORMAX : 
8308 3:THE FOLLOWING CALL TO CNMAC2.SML WAS ADDED TO INiT BRKVEC AND LKVEC 
8309 013430 POINT=, sSAVE POINTER 
(1) 000100 .=100 
(1) 000100 013430 $CLKVEC sLKVEC_ HANDLER 
(1) 000102 00030: 300 s INTERRUPT HANDLER PRI 
(1) 000140 -=140 SBRKVEC 
(1) 000140 170000 170000 007 START ADDRESS 
(1) 000142 000300 300 :PRIORITY 
(1) 013430 =POIN RESTORE POINTER 
(1) 013430 104402 013436 scievec: TYPE, CLKMES 
(1) 013434 000000 HALT 
(1) 013436 005015 045514 042526 CLKMES: .ASCIZ 21 5><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
(1) 013444 020103 047111 042524 
(1) 013452 051122 050125 020124 
(1) 013460 020055 044504 041523 
(1) 013466 047117 042516 052103 
(1) 013474 046040 041524 000040 
8310 013502 000001 KXTFLAG:1 
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“cworeea MACY11 A ae 1 _ 10:09 PAGE 80-1 
/CNDZCA.P11 10=DEC=82 15 D2V11 DEVICE DIAGNOSTICS. COPYRIGHT 1982 DIGITAL EQUIP. CORP. SEQ 0062 


| 9311 000001 SEND 





-——-- 


/CNDZC=A_MACY11 30(1046) 
10=DEC=82 15:31 CROSS REFERENCE TABLE =~ USER SYMBOLS 


CNDZCA.P11 


ABASE = 160010 





L 5 
14=DEC=82 10:09 PAGE 81 


rege 7821 8280 


78234* 
78214 7823 
7821 


a 
7821 8283 
7821 


SEQ 0063 





- -— --- 


CNDZC=A_MACY11_ 30(1046) 


CNDZCA.P11 
BAUD 002374 
BINWRD 004520 
BITO = 1 
BITOO = 000001 
B1T01 = 000002 
BITO2 = 000004 
BITOS = 000010 
BIT04 = 000020 
BITOS = 000040 
BITO6 = 000100 
BITO7 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1_ = 000002 
B1T10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT1S = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 0 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 000400 
Ij9 = 000 


DELAY 04414 
DEVADR 00424 
DEVICE= 10441 








Mm 5 


14=DEC-82 10:09 PAGE 81-1 


10=DEC-82 15:31 


78214 
78234 


7823 


CROSS REFERENCE TABLE == USER SYMBOLS 


7966 


7942s 


7918 
7833 7890 7907 7927 7954 


SEQ 0064 


CNDZC“A_MACY11 30(1046) 14=DEC-82 10:09 PAGE 
CNDZCA.P11 10=DEC=82 15:31 
DH1 012666 8008 81324 
DH2 012712 8012 81334 
DHS 012745 8016 8020 8032 
8088 8092 8096 
DHS 012757 8024 8028 8076 
DHS 013006 8072 81364 
DISPLA 001306 78214#* 7825* 
DISPRE 000174 78214 
DLYCNT 004614 782 
DLYTBL 013164 81814 
FLG 001425 78214 7938* 7949 
DSWR = 177570 78214 
DTRO = 000400 78214 
DTR1 = 001000 78214 
DTR2 = 002000 78214 
DTRS = 004000 78214 
DT1 013066 8009 81434 
DT2 013100 8013 81494 
DTS 013116 8017 8021 8033 
8089 8093 8097 
DT4 013124 8025 029 8077 
DTS 013142 8073 81694 
DVALID= 100000 78214 
DZCRO 001500 78214 
DZCR1_ = =001512 78214 
DZCR10 001620 78214 
DZCR11 001632 78214 
DZCRI2 001644 78214 
DZCR15. 001656 78214 
DZCR14 ‘001670 78214 
DZCR15 001702 78214 
DZCR16 001714 78214 
DZCR17 001726 78214 
ZCR2 001524 78214 
DZCRS 001536 78214 
DZCR&4 001550 78214 
DZCRS § 001562 78214 
DZCR6 001574 78214 
DZCR7_ 001606 78214 
DZVACT 001406 7821 
DZVCSR 002010 78214 7823*  7839* 7842 
DZzvcCO §=—. 001502 7821 
DZVC1_ = 001514 78214 
DZvC10 001622 78214 
DZVC11 001634 78214 
DZVC12 001646 78214 
DZVC13 001660 78214 
DZVC14 001672 78214 
DZVC15 001704 78214 
DZVC16 001716 78214 
DZvC17 001730 78214 
DZVC 001526 78214 
DZVC 001540 78214 
DZvC4 001552 78214 
DZVCS5 = 001564 78214 
DZvC6 =: 001576 78214 


N 5 


81-2 
CROSS REFERENCE TABLE == USER SYMBOLS 


8036 8040 8044 8048 05 
8100 81344 _— 
81350 

7988+ 

8037 8041 8045 8049 8053 
8101 8157# 

81614 


7858* 7868 7893 7937* 


8060 


8061 


7957 


8064 8068 8080 


8065 8069 8081 


7993 7999 


SEQ 0065 


8084 


8085 


oo 
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CNDZC=A_MACY11_ 30(1046) 14=DEC=-82 10:09 PAGE 81-3 
CNDZCA.P11 10=DEC=82 15:31 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0066 
DZvC? 001610 78214 
DZVLEV 007704 7821 78234 
DZVLPR 002020 78214 = 7823* 7838* 7932+ 
DZVMSR 002030 78214 7823* 7919 
DZVNUM 001414 78214 
DZVRBU 002014 78214 7823* 7871 7960 
SZVRIS 00204 78214 7823* 7856* 934% 
DZVRIV 78214 7823 7855* 7933+ 
DZVTCR 002024 78214 7823* 7835* 7941+ 
DZVTOR 002034 78214 7823*  7849% 7895*  7996* 
DZVTIS 002046 7821# 7823*  7936* 
DZVTIV 002044 78214 7823* 7935+ 
DZV.EN 001740 78214 
° 001500 78218 
EIGHT = 000030 78214 
EIGHTS= 000070 78214 
EMTVEC= 000030 78214 
EM 011336 81074 
EM10 011754 8043 81164 
EM13 012013 8047 81174 
EM14 012044 8051 81184 
EM15 012076 8055 81194 
EM16 012140 8059 81204 
EM17 012212 8063 81214 
EM2 011411 8011 81084 
EM20 012250 8067 81224 
EM21 012311 8071 81234 
EM22 012341 8075 81244 
EM25 012403 8079 81254 
EM24 012433 8083 81264 
EM25 012461 8087 81274 
EM26 012511 8091 81284 
EM27 012540 8095 81294 
EMS 011437 8015 81094 
EM30 012606 8099 81304 
EM4 011476 8019 81104 
EMS 011525 8023 81114 
EM6 011554 8027 81124 
EM? 011613 8031 81134 
EM8 011654 8035 81144 
EM9 011716 8039 81154 
ERRMSG 005166 78234 
ERRVEC= 000004 78214 
TABO 005342 78234 
EVEPAR= 00 78214 
EXITER 005272 78234 
FALCIN 013224 7821* 82804 
FIVE = 000000 78214 
FIVES = 000040 78214 
FRMERR= 020000 78214 
GETCSR= 002324 78214  8286* 8287+ 8288+ 
GETSWR= 005404 7821* 78234 
GETVEC= 002342 78214 8289* 8290*  8291* 
HALTS 00521 78234 
0014 78214 


HDRFLG 00142 
HDZVCS 002012 78214 7823+ 





C 6 
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CNDZCA.P11 10=DEC=82 15:31 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0067 
HDZVLP 002022 78214 7823* 
HDZVMS 002032 78214 7823* 
HDZVRB 002016 78214 7823% 
HDZVTC 002026 78214 = 7823* 7913 
HDZVTD 002036 78214 7823* 
H°LIM 240 78234* 
= 000011 78214 7823 
7536 78234* 7879 7880* 7888 
INIFLG 001422 78214* 
INSTER= 104404 7823 
TR_= 104403 78214 
INSTR2 040 78234 
INTRAN 011060 7935 79934 
INTREC 010670 7933 79564 
INTSVC 010244 7855 78684 
IOTVEC= 000020 78214 
KXTFLA 013502 7821 83104 
07054 7821* 78234 
= 12 78214 
LIMITS 166 78234 
INE 001366 78214 
LINESP 007064 7821 78234 
LINEX 002412 78214 7864 7948 
LINEO 001504 78214 
LINE1 001516 78214 
LINE10 001624 78214 
LINE11 001636 78214 
LINE12 001650 78214 
LINE13 001662 78214 
LINE14 001674 78214 
LINE1S 001706 8214 
LINE16 001720 78214 
LINE17? 001732 78214 
LINE2 001530 78214 
LINES 001542 78214 
LINES 001554 78214 
LINES 001566 78214 
LINE6 001600 78214 
LINE? 001612 78214 
LKVEC = 000100 78214 
LOBITS 004244 7823#* 
LOCK 001364 7821# 7823* 7912* 7928 
LOCKUP 007052 7821* 7823# 7951*  7956* 
LOLIM 004236 78234 
LPRSET= 104421 78214 
LPO = 000000 78214 
LP1 = 000001 78214 
LP2 = 000002 78214 
LPS = 000003 78214 
MAINT = 000010 78214 7823 
MANTO 001510 78214 
MANT1 0015 782148 
MANT10 001630 78.14 
MANT11 001642 78214 


MANT12 001654 
MANT13 001666 78214 





mi nn ees ee + - 


CNDZC=A MACY11 30(1046) 


/CNDZCA.P11 


| MANT14 
(MANTIS 


PARERR 
PARITY= 


01 
004162 
000100 


D 6 


14=DEC=82 10:09 PAGE 81-5 


10-DEC-82 15:31 


7856 


78234 
7859 


7823 


7862* 


7858 


7854* 


7887 
7913 


7836* 


CROSS REFERENCE TABLE == USER SYMBOLS 


7904* 7934 7936 


7937 


7906* 


7930 7985 
7915 7917 7941 


7837* 7838 7929*  7930* 


7931 


7932 


SEQ 0068 


,CNDZC=A_MACY11 


/CNDZCA.P11 
/PARMD = 104415 
/PARO 001506 
|PAR1 001520 
01626 





PAR6 001602 
PAR7 001614 
PAWCH = 104416 
PIRQ = 177772 
PIRQVE= 000240 
POINT = 013430 
POPRO = 012600 
SP= 005726 
POP2SP= 022626 
PRIO 007074 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PRS = 000140 
PR4 = 00020 
PRS = 000240 
PR6 = 000300 
PR? = 000340 
PS = =:*177776 
PSW = 177776 
PUSHRO= 910046 


RCVON 0 
RDATA 007060 
RDONE = 000200 
RECDAT 007076 
REGIST 001402 


RIE_ = 000100 
RINGO = 000001 
RING1 = 000002 
RING2 = 000004 
RI = 000010 
RLO = 000000 





30(1046) _14=DEC-82 


10=DEC=82 15:31 


7823 


7823 


7871* 
7979* 
8177 


7823 


7823 
7858 


E 6 
CROSS REFERENCE TABLE == USER SYMBOLS 


10:09 PAGE 81-6 


7874 7878 7879 = 7881* 7882+ 
7980* 7981 7983 


7937 


7883 


7885 


7960* 


7963 


7966 


SEQ 0069 


7969 


CNDZC“A MACY11 30(1046) 14=DEC-82 10:0 


CNDZCA.P11 = 10=DEC=82 15:31 


IRL = 00 78214 
/RL2 = 001000 78214 
RLS) = = 001400 78214 
| RUN 12 78214 
SAVACT 001410 78214 
SAVLIN 001374 78214 7823 

AVNO 001416 78214 

AVNUM 001415 78214 
SAVPC 001404 78214 7823* 
SAVOS = 104407 78214 7823 
SCOP1 = 104401 78214 7926 
SERV.G 005356 78234 

T 006652 7821 78234 
SETFLG= 104406 78214 

T 006704 78234 

VEN = 000020 78214 
SEVENS= 000060 78214 
SHIFT = 104420 78214 
SILOAL= 020000 78214 
SILOEN= 010000 78214 
SIX = 000010 78214 

Ixs = 000050 78214 
SPACNT 004517 78234 
SPEED 007066 78234* 7837 
SPIN 010626 79454 7952 
STACK = 001120 78214 7 
STFLG 007050 7821* 78234 
STKLMT= 177774 78214 
STOP 001446 78214 7823 
Sv05 004254 78234 
SWR 01304 78214* 7823* 
SWREG 000176 78214 
SwO = 000001 78214 
swoO = 01 78214 
sw01 = 000002 78214 
Swo2 = 04 78214 
sw0O3 = 000010 78214 
Sw04 = 20 78214 
SwOS = 000040 78214 
Sw0O6 = 00 78214 
SwO7 = 000200 78214 
swos = 00 78214 7823 
Sswo9 = 001000 782% 7823 
Swi = 000002 78214 
$w10 = 002000 78214 7823 
SW11 = 004000 78214 
Swi2 = 010000 78214 7823 
$w13 = 020000 78214 7823 
SW14 = 78214 
Swi5 = 100009 78214 
Sw. = 000004 78214 
SW = 000010 78214 
SW4 = 000020 78214 
SWS 06 = 0 0 78214 
SW6 = 000100 78214 
SW? = 000200 78214 


7883 


7863 


7929 


7852 


9 PAGE 81-7 
CROSS REFERENCE TABLE == USER SYMBOLS 


7855* 7887+ 


7947 


F 6 


7981 7983* 7985* 


8159 


8167 


8171 


SEQ 0070 


nen a ee ae ee +e —_—- -~ 


G 6 
/CNDZC=A MACY11 30(1046) 14=DEC=-82 10:09 PAGE 81-8 


(CuozCA.P It 10-DEC-82 15:31 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0071 
‘SWB = 00 78214 
Ry = 001000 78214 
‘$110 = 001000 78218 
$1200 = 003400 78218 
$134 = 001400 78214 
$150 = 002000 78218 
$1800 = 004000 78218 
1$19200= 007400 78214 
$2000 = 004400 78218 
$2400 = 005000 78218 
$300 = 002400 78218 
$3600 = 005400 78214 
$4800 = 006000 78214 
$50 = 000000 78218 
$600 = 003000 78214 
$7200 = 006400 78218 
$75. = 000400 78214 
9600 = 007000 78214 
TABLE2 006746 78234 
TBITVE= 00001 78214 
TBUF 007100 78234 7878* 7895 
TCRO = 000001 78218 
TCR1 = 000002 78214 
CR2 = 000004 78218 
TCR3 = 000010 78214 
DATA 007056 78234 
TDO 001426 7821# 7823 
1D1 001430 78214 
TD2 001432 78214 
D3 001434 78214 
TEIGHT 002106 78214 
EMP 007600 782 
TFIVE 002114 78214 
IE — = 040000 7821# 7937 7999 
TKVEC = 000060 78218 
TLO. = 000000 78214 
TL1 = 000400 78214 
TL2 = 001000 78214 
TL3 = 001400 78214 
TMTBL 002050 78218 
TPVEC = 000064 78214 
TRAPVE= 000034 782148 
TRDY = 100000 78214 
TRTIVEC= 000014 78218 
RO 001436 78214 
TRI 001440 78218 
TR2 001442 78218 
R3 001444 78214 
TSEVEN 002110 78214 
TSIX 002112 78214 
TST1 010044 7821 78334 
T 010420 7821 790M 
TWOSTO= 000040 78214 
TYPDAT 005202 78238 
TYPE = 104402 78214 7823 7859 8309 


TYPMSG 005072 78234 


/CNDZC=A_ MACY11 30(1046) 
10=DEC-82 15:31 


CNDZCA.P11 
'T110 = 002054 
'T1200 02066 
17134 002056 
T150 002060 
T1800 2070 
T2000 002072 
T2400 2074 
T300 2062 
T3600 002076 
T4800 2100 
T50 002050 
T600 2 
T7200 002102 
75 002052 
T9600 002104 
VEC 002264 
WCHFLG 007046 
WROCNT 004514 
WTBS.F 5170 
XBEGIN 002442 
XBX 76 
XCSR 002704 
XERR 002726 
XHEAD 006354 
XMTCNT 001400 
XMTLIN 001376 
XPASS 002720 
XSTATQ 444 
XTCR1 006674 
XTSTN 005350 
XVEC 002712 
XX = 160210 
YY = 000500 
7Z = 000020 
SAPTHD 001446 
SASTAT= *seex22% 
SATYC 003500 
SATY1 003454 
SATY3 003462 
SATY4 003472 
SAUTOB 001300 
$BASE 001174 
DADR 001266 
SBDDAT 001272 
CDW1 001200 
$CDOW2 001202 
SCHARC 003450 
SCLKVE 013430 
—— 001244 
CM2 = 000014 
$cM3 = 000006 
CM4 = 000005 
01146 
SCRLF 001357 
SDDWO 001204 


H 6 


14=DEC=82 10:09 PAGE 81-9 


CROSS REFERENCE TABLE == USER SYMBOLS 


78234 


7823 


7823 = 8280 = 8282* 


7823 


LL 


SEQ 0072 


‘deiaaeet eer aaa eames ceeenianeeemems emanate rama 
| CNDZC=A_MACY11_ 30(1046) wee 10:09 PAGE 81-10 seg 


CNDZCA.P11 10=DEC-82 15:31 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0073 
DWi 001206 78214 
$DDW10 001230 78214 
$DDW11 001232 78214 
owls 001234 78214 
DWI3 001236 78214 
$SDDW14 001240 78214 
$O00W15 001242 78214 
SOW 001210 78214 
$ODW 001212 78214 
DW4 = 001214 78214 
$ODWS 001216 78214 
DW6 001220 78214 
SDDW7 001222 78214 
SODWB 001224 78214 
DWI 001226 78214 
SDEVCT 001150 78214 
EVM 001176 78214 
SDOAGN 002700 78234 
= 2 66674 
SENDAD 002670 7821 78234 
2654 78234 
SENV 001140 78214 7823 
SENVM =001141 78214 7823 
SEOP 002542 78234 7854 7891 7906 7955 
SEOPCT 002646 78234 
SERFLG 001247 78214* 7823+ 
SERMAX 001261 78214 
SERROR 004730 78234 
SERRPC 001262 78214 7823 
SERRTB 1362 78214 
SERTTL 001256 78214* 7823+ 
SETABL 1140 78214 
SETEND 001244 78214 
SFATAL 001122 78214 7823+ 
SFFLG 003720 782 3#* 
S$FILLC 001322 78214 7823 
SFILLS 1321 78214 7823 
SFLIP = 177777 56764 
SGDADR 001264 78214 
DDAT 001270 78214 
$GET42 002660 78234 
D = 1 7821 
SHIBTS 001446 78214 
SICNT 001250 78214 
SILLUP 005766 78234 
SINTAG 001301 78214 
SITEMB 001260 78214 7823* 
F 001360 78214 7823 
FLG 003717 78234 
SLPADR 001252 78214* 7823+ 
SLPERR 001254 78214 
SMADR1 001152 78214 
ADR2 001156 78214 
SMADRS 001162 78214 
SMADR4 001166 78214 
SMAIL 001120 78214 7823 


J 6 
CNDZC=A MACY11 30(1046) 14=DEC=82 10:09 PAGE 81-11 


| CNDZCA.P11 10=DEC=82 15:31 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0074 

001150 78214 
001154 78214 
001160 78214 
001164 78214 
001450 78214 
003716 78234 
001134 782148 7823 
001136 78214 7823* 
001120 78214 7823* 
001151 78214 
001155 78214 
001161 78214 
001165 78214 
000001 66664 
001320 78214 23 
001126 78214* 7823* 

1454 78214 
005762 78234 
005622 7821 78234 
005756 78234 
005674 782 
001356 78214 7823 

1324 78214 
001326 78214 7823* 8147 8155 
001330 78214 7823* 8145 
001332 78214 7823* 
001334 78214 7823* 
001336 78214 7823* 8153 8165 
001340 78214 8 7823* 8151 8163 8173 
002702 78234 
005772 78234 
000 23 
000040 78214 

7821 7823 

001142 78214 
001124 78214 
001354 78214 7823* 
001312 78214 7823 
001310 78214 7823 7860 7945 
001342 78214 
001344 78214 7823 8175 
001346 78214 7823 
001350 78214 
001352 78214 
000001 78214 
001316 78214 7823% 
001323 78214 
001314 78214 7823 
001452 78214 
001246 78214* 7823 7834* 7905* 
003172 78234 
003404 78234 
003452 78234 
001132 78214 
001456 78214 
001144 78214 





SS ee ns a 


—_— -—-- -——- -— _ ee 


“ONDZC=A MACY11_ 30(1046) 


‘$vECTI 001170 
i , Bs 


NM ey 
AMMAGCEA 


- SASTA= eeeeee | 
“8X = 001446 


K 6 


14=DEC=82 10:09 PAGE 81-12 
/CNDZCA. Pll 10=DEC=82 15:31 


8283 


78234 


CROSS REFERENCE TABLE == USER SYMBOLS 
8285+ 


7869 7872 7875 7958 7961 7964 7967 


SS EE a a SaS eS 


7970 


7977 


7994 


SEQ 0075 


81384 


ee —_ 


L 6 
/CNDZC=A_MACY11_ 30(1046) 14-DEC-82 10:09 PAGE 82 
|CNDZCA.P11 10=DEC=82 15:31 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0076 


a 
7847 7870 7873 7876 7886 7922 7953 7959 7962 7965 7968 7971 7978 7984 


78214 7823 


2 
78214 7823 
56824 78214 


78214 7823 








ae | . . " - - 


HM 6 
|ENDZC=A MACYT1. 30(1046) | 14=DEC=82 10:09 PAGE 82-1 
[CNDZCA.P11  10=DEC-82 15:31 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0077 


- SEOP 22148 5680# 7823 


$MU 
-SPOWE 42294 56814 7823 


STRAP 40734 56814 


“sree 29854 5680# 7823 


- ABS. 013504 000 


ERRORS DETECTED: 0 


CNDZCA, CNDZCA/CRF /NL : TOC=CNMAC2. SML ,CNDZCA.P11 
RUN-TIME: 13 15 1 SECONDS 
RUN-TIME RATIO: 83/28=2.9 

CORE USED: 50k (100 PAGES) 
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